All you would need to do is change:

Sub DeleteEmptyRows()
in the link to:
Sub DeleteEmptyRows(TargetDoc As Document)
and, in the same sub, change:
ActiveDocument.Tables
to:
TargetDoc.Tables

You can delete both 'Application.ScreenUpdating' rows from the 'DeleteEmptyRows' sub, too.

Then, after the line:
Set TargetDoc = ActiveDocument
in your existing sub, insert:
Call DeleteEmptyRows(TargetDoc)

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