Microsoft Office Forums - View Single Post - [Solved] Removing Lines / Tables with Blank Data

macropod · 06-08-2018, 07:25 PM

The reason the macro has trouble with your document is that the content is not in separate tables and you have many rows whose last cell is empty and that has nothing to do with the rows you want to delete. Moreover, you table has vertically merged cells, which means it's impossible to process it in the normal manner. None of that was apparent from your screenshot.

Try the following revision to the macro:

Code:

Sub MailMergeToDoc()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long, c As Long
ActiveDocument.MailMerge.Execute
For Each Tbl In ActiveDocument.Tables
  With Tbl
    If .Range.Cells(.Range.Cells.Count).RowIndex = 50 Then
      For r = 43 To 30 Step -1
        Select Case r
          Case 30, 31, 36, 37, 42, 43
            If Split(.Cell(r, 4).Range.Text, vbCr)(0) = "" Then
              For c = 4 To 1 Step -1
                .Cell(r, c).Delete
              Next
            End If
        End Select
      Next
    End If
  End With
Next
Application.ScreenUpdating = False
End Sub