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]

Hi macropod,

That's great! Finally, it works well.

Thank you so much for your patient help.