Slet række hvis, tal er mindre end 0

Hej
Jeg har dette, men kan ikke få det til at virke.
Jeg har data fra række 2, og mine tal står i kolonne F

Sub SletRaekker()
i = 2
Do While Ark1.Range("F" & i).Value <> ""
If Range("F" & i).Value < -0 Then
Rows(i & ":" & i).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
End Sub