Sub selection()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("C3:C1600")
If c.Value = "1" And c.Offset(0, -1).Value <> "" Then
c.Offset(0, -2).Delete Shift:=xlToLeft
End If
Next
Range("A3").Select
Application.ScreenUpdating = True
End Sub