how to delete every blank and non-numeric rows without removing the header

enuff · #1 08-23-2017, 01:55 AM

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?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete blank rows between the two rows that contain data	beginner	Excel Programming	5	12-26-2014 12:29 AM
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Removing blank pages at the end of a document	Xanzia	Word	3	06-01-2014 11:13 AM
first character NOT Alpha numeric or Tilde (~) delete.	ksridh	Word VBA	5	03-17-2014 12:45 AM
Delete Blank Rows (Cyrillic Text in Spreadsheet )	dozd	Excel	1	02-22-2013 03:24 AM