ich bin für jede Hilfe Dankbar
https://www.herber.de/bbs/user/79318.xls
Sub Zwischensumme()
Bildet die Zwischensumme der Spalte A nach jeweils 49 Zeilen, fügt einen Seitenwechsel ein _
und überträgt die Zwischensumme auf die neue Seite
For i = 50 To 500 Step 50
a = i + 2
Rows(i).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Cells(i, 1).FormulaR1C1 = "=SUM(R[-49]C:R[-1]C)"
Cells(i + 1, 1).Value = Cells(i, 1)
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
Next i
End Sub