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