But if you insist, you can do it this way

change page break number as you need)
Sub DeletePage()
ActiveWindow.View = xlPageBreakPreview
Range(Rows(ActiveSheet.HPageBreaks(1).Location.Row ),Rows(ActiveSheet.HPageBreaks(2).Location.Row)).E ntireRow.Delete
End Sub