Excel - como hacer un grafico sin seleccionar los rangos (que obedezca dos fechas)

Option Explicit

Sub Macro1()

    Dim Desde As Date, Ini As Long, LIN As Long, _

        Hasta As Date, Fin As Long

    ' ---&--- Busca la primera y ultima fecha

    LIN = 2: Desde = Cells(LIN, "a")

    While Cells(LIN, "A") <> ""

        Hasta = Cells(LIN, "A")

        LIN = LIN + 1

    Wend

    ' ---&--- Solicita el rango ded fechas

    Desde = InputBox("Desde la Fecha:", "DESDE FECHA", Desde)

    Hasta = InputBox("Hasta la Fecha:", "HASTA FECHA", Hasta)

    ' ---&--- Busca la línea de inicio y fin del rango

    Ini = 0

    Fin = 0

    LIN = 2

    While Cells(LIN, "A")

       If Ini = 0 Then If Cells(LIN, "A") >= Desde Then Ini = LIN

       If Cells(LIN, "A") <= Hasta Then Fin = LIN

        LIN = LIN + 1

    Wend

    ' ---&--- Presenta el gráfico

    ActiveSheet.Shapes.AddChart.Select

    ActiveChart.ChartType = xlLine

    ActiveChart.SetSourceData Source:=Range("Hoja1!$A$" & Ini & ":$B$" & Fin)

    End Sub