Sub page_breaks()
Dim ilr As Integer, pbrow As Integer
    With ActiveSheet
        ilr = .Cells(.Rows.Count, 5).End(xlUp).Row
        pbrow = 50
            Do While ilr > pbrow
                pbrow = .Cells(pbrow, 1).MergeArea.Cells(1).Row
                .HPageBreaks.Add Before:=.Cells(pbrow, 6)
                pbrow = pbrow + 50
            Loop
    End With
End Sub


Sub myPageSetup()
    Dim i&, x&
    '10 On Error Resume Next
    Application.ScreenUpdating = False
    ActiveWindow.View = xlPageBreakPreview
    With ActiveSheet
        .ResetAllPageBreaks
        i = 1
        Do While i <= .HPageBreaks.Count
            x = .HPageBreaks(i).Location.Row
            If .Cells(x, 1).MergeCells Then
                Set .HPageBreaks(i).Location = .Cells(x, 1).MergeArea(1)
            End If
            i = i + 1
            DoEvents
        Loop
    End With
    Application.ScreenUpdating = True
End Sub


Sub myPageSetup()
    Dim x&, PB As Object
    '10 On Error Resume Next
    Application.ScreenUpdating = False
    ActiveWindow.View = xlPageBreakPreview
    With ActiveSheet
        .ResetAllPageBreaks
        For Each PB In .HPageBreaks
            x = PB.Location.Row
            If .Cells(x, 1).MergeCells Then
                Set PB.Location = .Cells(x, 1).MergeArea(1)
            End If
            DoEvents
        Next
    End With
    Application.ScreenUpdating = True
End Sub