Tarih listesindeki boşluğu sorgulama

Sub ON_FARK()
[K:L].ClearContents: [L:L].NumberFormat = "dd/mm/yyyy"
For sat = 3 To Cells(Rows.Count, 5).End(3).Row
    son = sat + WorksheetFunction.CountIf([G:G], Cells(sat, 7)) - 1
    For f = son To sat Step -1
    If Cells(f, 5) - Cells(f - 1, 5) >= 10 Then
        k = Cells(Rows.Count, "K").End(3).Row + 1
        If [K1] = "" Then k = 1
        Cells(k, "K") = Cells(f, 7): Cells(k, "L") = Cells(f, 5)
        sat = son - 1: Exit For
    End If
    Next
Next
End Sub