Assuming you are running this code in the ActiveSheet (so that the Range is
referenced correctly), then this statement should do what you want...

Range("E5:E" & Rows.Count).SpecialCells(xlCellTypeConstants, _
xlTextValues).EntireRow.Delete

You can put it into a macro or execute it from the Immediate window.

--
Rick (MVP - Excel)


"Peruanos72" wrote in message
...
I'm trying to delete rows of data after row 4 if the cell in column "E"
has
any alpha characters in it at all. If the cell in column "E" is all
numeric
then no action is taken on that row. Thoughts??