The easiest might be to sort and then delete

or if you don't want to sort
Sub deleteblanks()
Columns(1).SpecialCells(xlBlanks).Delete
End Sub

--
Don Guillett
SalesAid Software

"Chris Hankin" wrote in message
...
Hello,

Could someone please advise on a macro code that would do the following:

If there is a blank cell in column A, then delete the entire row . I
need this to loop around from A2:A60000.

Any help would be greatly appreciated.

Thanks,

Longbow :-)

Live Long and Prosper :)

*** Sent via Developersdex http://www.developersdex.com ***