Копирование данных в следующую пустую строку

[Vasya2012]

В этом деле я не специалист но очень надо для работы. Записал макрос который просто копирует данные из строки данных в первую строчку таблицы..подскажите как сделать так, чтобы при обновлении данных новое копирование происходило не в эту же строчку, а в следующую..тоесть нужно чтобы макрос при копировании искал следующую пустую строку, а не перезаписывал старую.
Вот собственно исходный макрос, прошу дополнить его несколькими строчками кода. спс

Sub Макрос2()
Range("A1:B1").Select
Selection.Copy
Sheets("Лист2").Select
Range("F1:G1").Select
ActiveSheet.Paste
Sheets("Лист1").Select
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("I1:J1").Select
ActiveSheet.Paste
End Sub