VBA копирует и вставляет макрос, который зацикливается

Question

Новичок в VBA и просто хотел создать макрос, который копирует таблицы в указанном диапазоне и вставляет в следующие доступные пустые строки. Случается так, что каждый раз, когда я запускаю его, он вставляется в один и тот же диапазон, то есть B12, и не знает, как изменить ...

Sub CopyRange2()

Range("A1:I9").Select
Selection.Copy
Range("B12").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Answer 1

Хотелось бы узнать, почему вы указали ячейку B12 ??

Приведенный ниже код будет работать, если вы просто хотите вставить данные в следующие доступные пустые строки.

Sub CopyRange2()

Dim lastrow As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:I9").Select
Selection.Copy

Range("A" & lastrow + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub