Excel - desglosar los dias entre dos fechas

Sub fechasEntre()

    '@dj.vivanco

    Dim fechaInicio As Date, fechaFinal As Date

    fechaInicio = Range("A1").Value

    fechaFinal = Range("B1").Value

    If fechaFinal > fechaInicio Then

        'limpia

        Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents

        cant = fechaFinal - fechaInicio

        For i = 0 To cant

            Cells(i + 2, 1).Value = fechaInicio

            fechaInicio = fechaInicio + 1

        Next i

    Else: MsgBox "Error, la fecha final no puede ser menor a fecha Inicial"

    End If

    Cells(1, 3).Value = i

End Sub