Sub Delete()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Overview")
For i = 70 To 10 Step -1
If .Cells(i, 3) = "" Then .Cells(i, 3).EntireRow.Delete
Next i
End With
Application.ScreenUpdating = True
End Sub
Sub test()
Dim i&
For i = 70 To 10 Step -1
If Cells(i, 3).Value = "" Then Rows(i).EntireRow.Delete
Next i
End Sub