Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oRng As Range
  For lngIndex = ActiveDocument.Tables.Count To 2 Step -1
    Set oRng = ActiveDocument.Tables(lngIndex).Range
    oRng.Collapse wdCollapseStart
    oRng.Move wdParagraph, -1
    'By your description, the range should now be defined at the table title.
    If Not oRng.Paragraphs(1).SpaceBefore = 0 Then oRng.Paragraphs(1).SpaceBefore = 0
    If Len(oRng.Paragraphs(1).Previous.Range) = 1 And Not _
       oRng.Paragraphs(1).Previous.Range.Information(wdWithInTable) Then
      oRng.Paragraphs(1).Previous.Range.Delete
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub