DRJ's response is right on. If you want the code, here it is...
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
You could also select the entire range and use an autofilter, but that's more work than needed.
K