Microsoft Office Forums - View Single Post - [Solved] Delete row with empty cel in a table

gmaxey · 04-27-2015, 06:15 AM

Here is another way. An empty cell has a text length = 2. A row marker has a text length = 2. So an empty row with three cells has a text length = 8.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Do
    If Len(Selection.Tables(1).Rows.Last.Range.Text) = 8 Then
      Selection.Tables(1).Rows.Last.Delete
    Else
      Exit Do
    End If
  Loop
End Sub