Sub DeleteEmptyRows_If()
'In the doc's 2nd tbl, delete rows if any of their cells starting from the 3rd cell is empty.

Dim tbl As Table, cel As cell
Dim i As Long, j As Long, n As Long

    Application.ScreenUpdating = False
    Set tbl = ActiveDocument.range.Tables(2)
    n = tbl.rows.count
    For i = n To 1 Step -1
        For j = 3 To tbl.rows(i).Cells.count
            Set cel = tbl.rows(i).Cells(j)
            If Len(cel.range.text) = 2 Then
                 tbl.rows(i).Delete
                Exit For
             End If
        Next j
    Next i
Set cel = Nothing: Set tbl = Nothing
Application.ScreenUpdating = True
End Sub

Sub Del_Empty_Rows_If_3()
'In the doc's n-th tbl, delete rows if any (at least one) of their cell
'starting from the 3rd cell is empty.

Dim tbl As Table, tblNo As Long, cel As cell, cellNo As Long
Dim i As Long, j As Long, n As Long

    Application.ScreenUpdating = False
    tblNo = InputBox("Enter the table's number:")
    If tblNo > ActiveDocument.range.Tables.count Then
        MsgBox "There's no table with this number in this document."
        Exit Sub
    End If
    Set tbl = ActiveDocument.range.Tables(tblNo)
    cellNo = InputBox("Enter the cell's number to start from:")
    n = tbl.rows.count
    For i = n To 1 Step -1
        For j = cellNo To tbl.rows(i).Cells.count
            Set cel = tbl.rows(i).Cells(j)
            If Len(cel.range.text) = 2 Then
                tbl.rows(i).Delete
                Exit For
            End If
        Next j
    Next i
Set cel = Nothing: Set tbl = Nothing
Application.ScreenUpdating = True
End Sub