Макросы в экселе

[Якупов Маман]

Как можно написать макрос чтоб несколько строк от одного листа перешли на другую лист и на не заполнение пустые строки а от первого листа данные отчистились. пожалуйста помогите мне это очень нужно.

[Aleksandr H.]

макросом.
С чем возникли проблемы? Или "помогите мне это очень нужно" = "сделайте за меня все полностью"?

[Якупов Маман]

Нет извините простите пожалуйста можете мне помочь как можно написать макрос от которого когда нажать на кнопку "Добавить" данные из 1 листа перешли на 2 лист на не заполнение пустые строки а из 1 листа все данные отчистился. Спасибо

[Якупов Маман]

вот в этом файле пример

[IgorGO]

во вложении

[Aleksandr H.]

Sub MoveData()
    Dim r1 As Integer
    Dim r2 As Integer
    Dim rng As Range
    r1 = Sheets("Лист1").Cells(Sheets("Лист1").Rows.Count, "A").End(xlUp).Row
    r2 = Sheets("Лист2").Cells(Sheets("Лист2").Rows.Count, "A").End(xlUp).Row
    Set rng = Sheets("Лист1").Range("A3:D" & r1)
    rng.Copy Sheets("Лист2").Cells(r2, "A")
    rng.Clear
    Set rng = Nothing
End Sub

[Якупов Маман]

Спасибо люди добрые