Sub DeleteEmptyRows()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For r = .Rows.Count To 1 Step -1
      If .Rows(r).Cells.Count > 1 Then
        If Len(.Cell(r, 2).Range.Text) = 2 Then .Rows(r).Delete
      End If
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub