Excel - Detectar en esta lista donde tiene un inicio 01/11/21 y un final 05/06/21

01/11/2020  20  20/11/2020

21/11/2020  15  05/12/2020

06/12/2020  14  19/12/2020

21/12/2020  20  09/01/2021

10/01/2021  21  30/01/2021

31/01/2021  20  19/02/2021

22/02/2021  21  14/03/2021

15/03/2021  22  05/04/2021

06/04/2021  20  25/04/2021

26/04/2021  21  16/05/2021

17/05/2021  20  05/06/2021

Sub diasFaltantes()

'@dj.vivanco 07-06-2021

Dim fechaInicio As Date, fechaFinal As Variant

Dim diasFaltantes As Integer

Dim rng As Range

On Error Resume Next

'Limpia datos en celdas- Cuidado que borrará lo que este en ese rango"

Range("d2:m1000").ClearContents

fechaSiguiente = ""

Set rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

rng.Interior.Color = RGB(255, 255, 255)

    For Each celda In rng

        fechaInicio = celda.Value

        fechaFinal = celda.Offset(-1, 2).Value

        If IsDate(fechaFinal) Then

            fechaSiguiente = fechaFinal + 1

            If fechaInicio <> fechaSiguiente Then

                diasFaltantes = (fechaInicio - fechaFinal) - 1

                celda.Offset(0, 3).Value = diasFaltantes

                For i = 1 To diasFaltantes

                    celda.Offset(0, 3 + i).Value = fechaFinal + i

                Next i

                celda.Interior.Color = vbYellow

            End If

        End If

    Next celda

End Sub