Hi, RobiNew! I've tested your code and it does delete the last page (if I understand correctly your objective). For me the following code also deletes the doc's last page:
Code:
Sub Delete_Last_Page()
Dim rng as range
Set rng = ActiveDocument.range.GoTo(wdGoToPage, wdGoToLast)
rng.End = ActiveDocument.range.End
rng.Delete
End sub