Excel - fechas faltantes con macro

columna A - Columna  B

14/6/2019

----------  -- 15/6/2019  ' es decir como 50 registros insertados

----------  -- 16/6/2019

  ' aqui todo el resto

----------  -- 20/8/2019

----------  -- 21/8/2019

22/8/2019

23/8/2019

26/8/2019

27/8/2019

28/8/2019

20/09/2019

Sub InsertaFechas()

'

' InsertaFechas Macro

' Inserta filas de fecha

'

Dim Ultima As Long

'

    Ultima = (ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row) ' Veo cual es el ultima celda

    i = 2 ' por que inicio desde A2 podria ser A3 o la que interese.

    While i < Ultima ' mientras el ciclo no llegue al ultimo registro.

    Range("A" & i).Select

     nreg = Abs(Abs(Range("A" & i + 1).Value) - Range("A" & i).Value)

        If nreg > 1 Then

            For X = 1 To nreg - 1

            Rows(i + X & ":" & i + X).Select

            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

            Range("A" & i + X).Value = Range("A" & i).Value + X

            Next X

            i = i + nreg  ' aqui sumo el numero de registros que inserte en vez de solo 1

        Ultima = (ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row) 'actualizo el ultimo registro

      Else

        i = i + 1

      End If

    Wend

End Sub