Sub DeleteFromPgToEnd()Sub Del_From_Pg_To_End()
'Delete pages from PgNum till the doc's end.

Dim rng As range
Dim PgNum As String
    PgNum = InputBox("Enter the number of the page")
    Set rng = ActiveDocument.range.GoTo(wdGoToPage, PgNum)
    rng.End = ActiveDocument.range.End
'If there's a page break before the PgNum page, the pages won't get
'deleted, so move the rng's start:
    If rng.Characters.First.Previous = Chr(12) Then
        rng.Start = rng.Start - 1
    End If
    rng.Delete
End Sub