For any other mailmerge main document, you would need to change the '8' in:
For r = .Rows.Count To 8 Step -1
to specify the top row to test and the '(2)' in:


If Len(.Cells(2).Range.Text) = 2 Then .Delete
to specify the column to test.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you so much, I did the change and found the numbers I needed for the debug to not come up and seem to work, but it still is showing the multiple empty rows on the new document.
I'm at a loss, and no one knows how the person before me did it, I am obviously not a microsoft expert!