Dim Tbl As Table, r As Long
' Remove empty rows
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For r = .Rows.Count To 1 Step -1
      With .Rows(r)
        If Len(.Range.Text) = .Cells.Count * 2 + 2 Then
          .Delete
          If r = 1 Then Set Tbl = Nothing
        End If
      End With
    Next
  End With
  MsgBox Tbl Is Nothing
Next