Option Explicit

Public Sub DeleteEmptyRows()

Dim oTable As Table, oRow As Range, oCell As Cell, Counter As Long, _
NumRows As Long, TextInRow As Boolean

' Specify which table you want to work on.
For Each oTable In ActiveDocument.Tables
' Set a range variable to the first row's range
Set oRow = oTable.Rows(1).Range
NumRows = oTable.Rows.Count
Application.ScreenUpdating = False

For Counter = 1 To NumRows

    StatusBar = "Row " & Counter
    TextInRow = False

    For Each oCell In oRow.Rows(1).Cells
        If Len(oCell.Range.Text) > 2 Then
            'end of cell marker is actually 2 characters
            TextInRow = True
            Exit For
        End If
    Next oCell

    If TextInRow Then
        Set oRow = oRow.Next(wdRow)
    Else
        oRow.Rows(1).Delete
    End If

Next Counter
Next oTable
Application.ScreenUpdating = True

End Sub

Sub DeleteEmptyRows()
'Graham Mayor - http://www.gmayor.com - Last updated - 03 Jan 2018
Dim oTable As Table
Dim iRow As Integer
Dim iCol As Integer
    Set oTable = Selection.Tables(1)
    If Selection.Information(wdWithInTable) Then
        For iRow = oTable.Rows.Count To 1 Step -1
            iCol = oTable.Rows(iRow).Cells.Count
            If Len(oTable.Rows(iRow).Range) = (iCol * 2) + 2 Then
                oTable.Rows(iRow).Delete
            End If
        Next iRow
    Else
        MsgBox "Selection is not in a table"
    End If
lbl_Exit:
    Set oTable = Nothing
    Exit Sub
End Sub