Как сделать копирование определённой строчки в excel в другую книгу в первую свободную строчку с использованием макроса - VBA

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

Как сделать копирование определённой строчки в excel в другую книгу в первую свободную строчку с использованием макроса

  Sheets("Г‹ГЁГ±ГІ2").Select
Range("A2:R2").Select
    Selection.Copy
    ChDir "C:\Users\Kirill\Desktop"
    Workbooks.Open Filename:="BAZAD"
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row+1
ActiveWorkbook.Save
ActiveWorkbook.Close

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

Решение задачи: «Как сделать копирование определённой строчки в excel в другую книгу в первую свободную строчку с использованием макроса»

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

                            Dim r As Range
 
Set r = Sheets("Г‹ГЁГ±ГІ2").Range("A2:R2")
With Workbooks.Open("C:\Users\Kirill\Desktop\BAZAD.xlsx")
    With .Sheets(1) 'например пишем в первый лист
        r.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
.Close 1
End With
                        