View Single Post
 
Old 08-23-2017, 01:55 AM
enuff enuff is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Jul 2015
Posts: 6
enuff is on a distinguished road
Default 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?
Reply With Quote