Следующий код вставит данные из Листа 1 в блоках по 43 строки в Лист2, например, A1: P43, A44: A86 и т. Д.
Sub CopyData()
Dim iRow As Long
Dim rng As Range
For iRow = 1 To 4258 Step 43
Set rng = Range("A" & iRow & ":P" & (iRow + 42))
rng.Copy Destination:=Worksheets("Sheet2").Range("A1") //Copy into A1:P43 on Sheet2
//Call your existing Macro here to process data?
Next
End Sub