automatisk sideskift

Jeg har fået hjælp til nedenstående kode på et tidspunkt.
Koden laver et automatisk / tvunget sideskift på de rigtige steder på mit ark......men......
Koden laver fejl hvis der kun er EN side, så der IKKE skal laves sideskift.

Er der nogen der kan hjælpe mig med det problem?







Sub Dan_Sideskift()

Application.ScreenUpdating = True
Cells.PageBreak = xlPageBreakNone

Range(Range("C65536").End(xlUp).Address).Select

Application.ScreenUpdating = False

For Each pb In Worksheets("noter").HPageBreaks

J = pb.Location.Row

    If Rows(J).PageBreak = xlPageBreakAutomatic Then

        If Cells(J, "A") = "" Then

            A = Cells(J, "A").End(xlUp).Row

            Rows(A).PageBreak = xlPageBreakManual

        End If

    End If

Next pb



With Worksheets("noter").HPageBreaks

J = .Item(.Count).Location.Row

    If Rows(J).PageBreak = xlPageBreakAutomatic Then

        If Cells(J, "A") = "" Then

            A = Cells(J, "A").End(xlUp).Row

            Rows(A).PageBreak = xlPageBreakManual

        End If

    End If

End With



'Application.ScreenUpdating = True

Range("A1").Select



End Sub