Hi wowow,

It appears the empty email results from an empty last Section in the mailmerge output document. Try changing:
For j = 1 To Source.Sections.Count
to:
For j = 1 To Source.Sections.Count - 1

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