Макрос вставить на следующую свободную строку.

[Елена195]

Добрый день.

У меня есть файл, с несколькими листами, на которых есть однотипные таблицы.
Мне необходимо скопировать эти таблицы и вставить на третий лист одна под другой, а потом удалить пустые значения.

Для этого я написала макрос:

Sub Макрос5()
'
' Макрос5 Макрос
'

'
    Sheets("Лист1").Select
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B1:B37,F1:G37,I1:J37").Select 'выбираю нужные столбцы до конца таблицы, хотя можно выбрать не пустые, но что б не заморачиваться просто выбираю до конца
    Range("I1").Activate
    Selection.Copy
    Sheets("Лист3").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Лист2").Select
    Range("B2:B37,F2:G37,I2:I37,J2:J37").Select
    Range("J2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Лист3").Select
    Range("A38").Select ' Вот тут то в общем то и загвоздочка
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("6:37").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

Подскажите пожалуйста, как задать для вставки данных следующую свободную ячейку, при условии, что с первого листа вставляются строки с 1 по 37, а со второго и следующих ( которые будут добавляться) строки со 2 по 37.
Как я понимаю, можно задать какую-то переменную, к примеру к которая будет увеличиваться на 36. но не понимаю как задать это.
вроде можно как-то так.

r = Cells(Rows.Count, 1).End(xlUp).Row

Но как вставить данные именно в эту r, не понимаю..

Буду очень благодарна за помощь))

[Aleksandr H.]

Sub Макрос5()
    Sheets("Лист3").Cells.ClearContents
    Sheets("Лист1").Range("B1:B37,F1:G37,I1:J37").Copy     'выбираю нужные столбцы до конца таблицы, хотя можно выбрать не пустые, но что б не заморачиваться просто выбираю до конца
    Sheets("Лист3").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    Sheets("Лист2").Range("B2:B37,F2:G37,I2:J37").Copy
    Sheets("Лист3").Cells(Sheets("Лист3").Cells(Rows.Count, "B").End(xlUp).Row + 1, "A").PasteSpecial _
        Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

[Елена195]

Александр, Большое спасибо)