This thread is a duplicate of a discussion started here:
https://www.msofficeforums.com/155991-post12.html, but with relevant detail that was omitted from that discussion.
Try adding the following to the mailmerge main document:
Code:
Sub MailMergeToDoc()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long, Rng As Range
ActiveDocument.MailMerge.Execute
With ActiveDocument
For Each Tbl In .Tables
With Tbl
For r = .Rows.Count To 2 Step -1
Set Rng = .Rows(r).Range
With Rng
.Start = .Cells(2).Range.Start
If Len(.Text) = 2 * .Cells.Count + 2 Then .Rows(1).Delete
End With
Next
End With
Next
End With
Application.ScreenUpdating = False
End Sub