Sub DeleteEmptyRows_AllTables()

    Dim oTable As Table
    Dim oRow As Row
       
    For Each oTable In ActiveDocument.Tables
        For Each oRow In oTable.Rows
            'Check whether row is empty - delete if it is
            If Len(oRow.Range.Text) = oRow.Cells.Count * 2 + 2 Then
                oRow.Delete
            End If
        Next oRow
    Next oTable
    Exit Sub

End Sub