Try something like this (save your data before testing). This tests each used
cell in Column A and deletes the entire row if that cell is empty or contains
numeric data.

Sub DelRows()

Dim endRow As Long
Dim counter As Long

endRow = Cells(Rows.Count, 1).End(xlUp).Row

For counter = endRow To 1 Step -1
If IsNumeric(Cells(counter, 1).Value) Or _
IsEmpty(Cells(counter, 1).Value) Then
Cells(counter, 1).EntireRow.Delete
End If
Next counter

End Sub

Hope this helps
Rowan

"Roger" wrote:

I would like to test the following which are in about 15 rows

if cell contains any kind of text then go to next row as don't want to
delete rows
with text in them
exit if
else - this covers blanks cells and cells with numbers in them
delete row

Repeat until done about 15 times

Any suggestions would be greatly appreciated.

Roger