I guess you want to delete a worksheet from a workbook. (only sheet 1, for example). Simply right click on worksheet name and select Delete

But if you insist, you can do it this waychange 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

But this method depends on page breaks, if you reset page breaks, you will delete another range than intended. My advice is to set another method to analize which rows to delete.

Sorry, previous post deletes the second page AND the first row of the third page
This one works ok. ( from my point of view )
Sub DeletePage()

ActiveWindow.View = xlPageBreakPreview
Range(Rows(ActiveSheet.HPageBreaks(1).Location.Row ), Rows(ActiveSheet.HPageBreaks(2).Location.Row - 1)).EntireRow.Delete


End Sub