One way:

Public Sub DelBlank()
On Error Resume Next
Range("A1:A20").SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete
On Error GoTo 0
End Sub

the On Error statement prevents a run-time error if there are no
blank cells.


In article ,
"Brian Tozer" wrote:

Can someone please give me a macro that will delete all rows in a worksheet
that do not include any data in column A up to a maximum of row 20?

Thanks
Brian Tozer