VBA - For Next kode driller

Jeg har en kode som skal kigge på området F10-F28 - den skal slette de celler som er tomme (kan være 2 tomme celler i træk)! Problemet er at nedenfor området er alle celler blanke - og koden bliver ved med at køre og ikke kun 19 gange - hvad gør jeg galt? Se koden nedenfor


Sub Delete()
Range("F10").Select
For i = 0 To 19
    If ActiveCell.Offset(i, 0) = "" Then
    ActiveCell.Offset(i, 0).Delete shift:=xlUp
    i = i - 1
    Else
    End If
Next
End Sub