The macro in the quoted post is for deleting rows where the last column contains only a 0; not for deleting blank rows. To delete rows that are entirely empty, you would use code like:
Code:
Sub MailMergeToDoc()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
ActiveDocument.MailMerge.Execute
With ActiveDocument
For Each Tbl In .Tables
With Tbl
For r = .Rows.Count To 2 Step -1
With .Rows(r)
If Len(.Range.Text) = 2 * .Cells.Count + 2 Then .Delete
End With
Next
End With
Next
End With
Application.ScreenUpdating = False
End Sub