Udfylde manglende datoer i en dato række

Ja ved hjælp af lidt VBA-koden kan det lade sig gøre..

Rem Koden anbringes under relevante ark [Højreklik / Vis programkoden / "Indsæt"
Rem -"- effektueres fra arket [Alt + F8 / marker fuldEndDatoer / Afspil makro]

Const ræk1 = 1          'kan justeres
Const datoKolonne = "A" '-"-

Dim antalRæk As Long, ræk As Long
Dim dato As Date
Public Sub fuldEndDatoer()
    Application.ScreenUpdating = False
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).row
   
    For ræk = ræk1 To antalRæk
        If ræk = ræk1 Then
            dato = Range(datoKolonne & ræk)
        Else
            If Range(datoKolonne & ræk) = forøgDatoMedEn(dato) Then
                dato = Range(datoKolonne & ræk)
            Else
                sammenLign False
            End If
        End If
    Next ræk
   
    sammenLign True
   
    Application.ScreenUpdating = True
End Sub
Private Function forøgDatoMedEn(dato)
    forøgDatoMedEn = DateAdd("d", 1, dato)
End Function
Private Sub sammenLign(næsteRække As Boolean)
    While Range(datoKolonne & ræk) > forøgDatoMedEn(dato)
        Rows(ræk & ":" & ræk).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       
        ActiveCell = forøgDatoMedEn(dato)
        dato = ActiveCell
        ræk = ræk + 1
    Wend
    dato = Range(datoKolonne & ræk)
End Sub