Получение текущего положения курсора в Excel и перенос данных макросом - VBA

Формулировка задачи:

Доброго времени суток! Знающие люди, подскажите, пожалуйста, как с помощью макроса получить активное положение курсора(ячейки) в Excel и начиная с этой ячейки перенести всю информацию с одного листа на другой лист? Допустим необходимо от текущего положения курсора на листе 1 последовательно перенести значения ячеек этой сроки на лист 2.

Поправочка. Лучше копировать, а не переносить. ))

Решение задачи: «Получение текущего положения курсора в Excel и перенос данных макросом»

textual
                            Листинг программы 
                        

                            Cells(ActiveCell.Row, 2).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 2)
Cells(ActiveCell.Row, 5).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 5)
Cells(ActiveCell.Row, 3).Copy Destination:=Sheet2.Cells(ActiveCell.Row, 3)
                        