Find/Replace can't be used to delete an empty paragraph before a table - even with a macro. For any other case, you don't even need a macro - simply use a wildcard Find/Replace, where:
Find = ^13{2,}
Replace = ^p
This is essentially what Graham's macro does.

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