Slet række med værdien 0

Kære læsere,

Jeg er igang med at lave et regneark, hvor jeg skal have slettet en masse rækker. Rækkerne skal slettes såfremt der ikke findes en værdi i Kolonne D.
Jeg har til dette udarbejdet en makro, som virker og dog alligevel ikke. Den sletter nogle rækker, men bestemt ikke dem alle. Umiddelbart sletter den uden system.

Min kode er således:

Function DeleteRows()
    Dim f As Long
    Sheets("Team 1").Select
    For Each f In Range("D1:D50")
   
    If f.Value = 0 Then
    f.EntireRow.Delete
    End If
   
  Next
   
End Function

Håber meget på svar.. :)