Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.End = ActiveDocument.Tables(1).Range.Start
  oRng.Delete
lbl_Exit:
  Exit Sub
End Sub