Option Compare Text

Sub DelLastPageIfEmpty()
  With Selection
    .GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=.Information(wdNumberOfPagesInDocument)
    .EndKey Unit:=wdStory, Extend:=wdExtend
    If Not .Text Like "*[0-9A-ZА-ЯЁ]*" Then .Delete Else .Collapse wdCollapseStart
  End With
End Sub