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