Either one of these :-
Sub Without_Loop()
Application.ScreenUpdating = False
Columns(1).Insert
With Range([B1], [B65536].End(xlUp)).Offset(0, -1)
.FormulaR1C1 = "=IF(RC[1]<2,1,"""")"
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = True
On Error GoTo 0
.Delete
End With
End Sub
Sub With_Loop()
Dim rng As Range, cell As Range
Set rng = Range([A1], [A65536].End(xlUp))
Application.ScreenUpdating = False
For Each cell In rng
If cell.Value < 2 Then cell.EntireRow.Hidden = True
Next
End Sub