Rick Rothstein submitted this idea :
That looks similar to what I posted the first time. I later retracted it
because, while it worked with the given data, it failed to work with this set
of data...

251120 251111
251140 272222
251145 293333
272505 294444
272535
291130
292100

Rick,
With this set of data, your revised version errors out on the line...

Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete

...and so works if we wrap this in On Error Resume Next and On Error
GoTo 0 statements.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc