Предположим, я скопировал строки данных из листа 1, я хотел бы вставить данные в лист 2, позволит ли VBA начать вставку новых данных в лист 2, на десять строк ниже?
Мой скрипт:
Sub AddDataOnSheet2TenRowsDown()
Dim lastRow As Long
Dim Sheet2 As Worksheet
Dim lRow As Long, iRow As Long
Dim ws As Worksheet
Dim rng As Range
Dim r As Long
Set Results = Sheets("Sheet2")
lastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row
Range("A2:B122,C2:d122").Copy
Results.Range("A" & lastRow + 10).PasteSpecial xlPasteAll
Application.DataEntryMode = False
ActiveWorkbook.Worksheets("Sheet1").PageSetup.CenterFooter = "Page " &
ActiveWorkbook.Worksheets("Sheet1").Index & " of " &
ActiveWorkbook.Sheets.Count
ActiveWorkbook.Worksheets("Sheet2").PageSetup.CenterFooter = "Page " &
ActiveWorkbook.Worksheets("Sheet2").Index & " of " &
ActiveWorkbook.Sheets.Count
End Sub