Вставить данные из активного листа, из строки с активной ячейкой в другой лист

[Илья]

Здравствуйте.
Скажите, пожалуйста, как вставить данные из активного листа, из строки, в которой находится активная ячейка, на другой лист?

[Администратор]

Макрос копирует данные из строки с активной ячейкой из первой ячейки во второй лист:
Sub Макрос1()
    Worksheets(2).Range("A1").Value = ActiveCell.EntireRow.Cells(1).Value
End Sub