Kan du knække denne? Tror det er let

Jeg forsøger at lære mig selv at kode, så det er nok mig som ikke fatter noget, men jeg har følgende problem. Jeg har skrevet lidt kode som jeg gerne vil have identificerer celler i en kolonne, der ikke har nogen værdi/indhold og derefter sletter hele rækken. Mit problem er at hvis der er to blanke celler lige efter hinanden, så springer den nummer to blanke celle over (fordi jeg skriver "next i" og nummer 2 derfor er nuværende "i").

Min kode ser ud som følger:

Sub AARensForCellerUdenIndhold()

    Dim finalrow As Integer
    Dim i As Integer

    finalrow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To finalrow
          If Cells(i, 4) <= 0 Then

          Rows(i).Delete (xlShiftUp)

          End If

    Next i

End Sub

Jeg har forsøgt at skrive "i = 2" efter at jeg sletter rækken i inde i IF koden for at få den til at starte forfra, men det sender den bare ud i et uendeligt loop også selvom jeg skriver "finalrow = cells..." umiddelbart før og efter "i = 2".

Jeg er ikke rigtig klar over hvordan man søger efter celler uden indhold, men det virker at søge efter celler som har en værdi <= 0, så længe der ikke er to celler i træk, der ikke har noget indhold.