You almost certainly don't need VBA for this; a wildcard Find/Replace would most likely do the job, where:
Find = ([^13^l])[^13^l]{1,}
Replace = \1
This assumes there are no stray spaces, tabs, etc. in your 'blank' lines.

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