Date Filler

Avete una sequanza di date ma con alcuni giorni mancanti e non avete voglia di inserirli a manina? La macro sottostante assolve questo compito:

Sub DateFiller()
    Dim i, r, c As Integer
    Dim ok As Boolean
    Dim sDate As Date
    
    ok = True
    r = 1 'numero di riga
    c = 1 ' numero di colonna
    While ok
        sDate = Cells(r, c).Value
        r = r + 1
        If Cells(r, c).Value = "#" Then
            ok = False
        Else
            If DateAdd("d", 1, sDate) <> Cells(r, c).Value Then
                Rows(r).EntireRow.Insert
                Cells(r, c).Value = DateAdd("d", 1, sDate)
            End If
        End If
    Wend
End Sub