Dim i As Long, LastRow As Long
Application.ScreenUpdating = False
'finds last used row in column F
LastRow = Range("F65536").End(xlUp).Row
'begin loop to check each row for column F value=1
For i = LastRow To 1 Step -1
If Cells(i, "F") = 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub