Try something based on:
Code:
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