Delete Row if Cell Less Than 1 BUT Keep Blank Cells

An alternative method would be to use autofilter. If have a high number of rows it will be a bit faster than looping.

Sub DelRows()
ActiveSheet.AutoFilterMode = False
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="<1"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

Alf