activecell

Ответ от Ђигр[гуру]
Все очень просто - включаешь запись макроса, делаешь все, что тебе нужно, потом выключаешь, смотришь что получилось. Немного пользуясь справкой, вносишь изменения, добавляя переменные и тд. Вуаля)) ) При создании макроса он Эксель сам спросит, какую комбинацию клавиш назначить.
Sub Макрос1()
Dim i As Integer, j As Integer
i = ActiveCell.Row
j = ActiveCell.Column
Range(Cells(i, j), Cells(i, j + 2)).Select
Selection.Copy
Range(Cells(i + 1, j), Cells(i + 1, j + 2)).Select
ActiveSheet.Paste
End Sub