Problem mit Seitenwechsel in VBA

Ich habe folgendes Makro erstellt um in einer großen Tabelle automatisch Seitenwechsel einzufügen:

Sub AI_Seitenwechsel_einfuegen()
Dim Z As Range
Dim A As Integer
Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.Select
For Each Z In Selection
If Z.Value = "Anfang - Seite : 1" Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = "Ende" Then GoTo weiter
Next
weiter:
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-3299, 0).Range("A1").Select
End Sub

Beim ausführen des Makros erhalte ich folgende Fehlermeldung:

Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler.

Kann mir hier jemand helfen?

Vielen Dank im vorraus!

Gruß
Werner T.