Seitenumbruch per VBA in Excel

Sub InsertPageBreaks()
    Dim LastRow As Long
    Dim ws As Worksheet
    Dim Cell As Range

    ' Set the worksheet where you want to insert page breaks  
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your sheet name  

    ' Find the last row with data in column A  
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row  

    ' Loop through each cell in column A  
    For Each Cell In ws.Range("A1:A" & LastRow)  
        If Cell.Value = "page-break-after" Then  
            ' Insert a page break after the cell  
            ws.HPageBreaks.Add Before:=Cell.Offset(1, 0)
        End If
    Next Cell
End Sub