I've tried to limit a range



Sub DelTest()
Columns("AL2:AL2000").SpecialCells(xlCellTypeBlank s).EntireRow.Delete
Columns("AL2:AL2000").SpecialCells(xlCellTypeConst ants, xlTextValues).EntireRow.Delete
End Sub

but it gives me an error.

This one, however, works and does the job perfectly:


Sub DelTest()
Columns("AL:AL").Resize(Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeBlanks).Entire Row.Delete
Columns("AL:AL").Resize(Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
End Sub

Thanks!