Delete Row if Cell Less Than 1 BUT Keep Blank Cells

Hi InkyDrinky,
Try this:

Sub DelLT1()
Dim LastRow As Double
Dim RowCtr As Double

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For RowCtr = LastRow To 1 Step -1
    If Cells(RowCtr, "A").Value < 1 And Cells(RowCtr, "A") <> "" Then
        Cells(RowCtr, "A").EntireRow.Delete
    End If
Next RowCtr
End Sub

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