datka

Проверить на вирусы.

Ctrl+G > Special > Visible Cells only > Ctrl + C > Ctrl + V

Делаешь шорткат допустим Ctrl+k . Кидаешь код в макросы . Выбираешь нужную ячейку, и Жмешь Ctrl+k

Macro:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+k
'
    Selection.Copy
    Range(Selection, Selection.End(xlDown).Offset(-1)).Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
End Sub