how to delete every blank and non-numeric rows without removing the header
Hi,
I am using the following code to remove all blank and non-numeric rows in a dataset of a about 1200 rows:
Sub DelTest()
Columns("AL:AL").SpecialCells(xlCellTypeBlanks).En tireRow.Delete
Columns("AL:AL").SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
End Sub
In my case column AL contains only numbers.
However, this code also deletes the column header because it is text.
How can I edit it so it starts from cell AL2 down?
|