Sub Demo()
Dim Rng As Range
With ActiveDocument
  Set Rng = .GoTo(What:=wdGoToPage, Name:=1)
  Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
  Rng.End = Rng.End - 2
  Rng.Collapse wdCollapseEnd
  If Asc(Rng.Characters.Last) = 12 Then Rng.Delete
End With
End Sub