Boa noite a todos!

Tenho um banco de dados com informações do processo que trabalho. O filtro que quero aplicar é por data. Preciso fazer a seleção do período filtrado com a data inicial e a data final para gerar um gráfico, porém não estou encontrando caminho.

Private Sub btn_FiltroAtual_Click()
    Dim Linha  As Long
    Dim xMax   As Long
    Dim DtINI  As Date
    Dim DtFIM  As Date
    
       
    Plan1.Activate
    xMax = Range("A" & Rows.Count).End(xlUp).Row + 1
    Linha = 2
    DtINI = Me.Txt_FiltraDE                ' DATA INICIAL
    DtFIM = Me.Txt_FiltraATE             ' DATA FINAL
    
    Do Until Plan1.Cells(Linha, 1) = ""
         If Cells(Linha, 1) >= DtINI And Cells(Linha, 1) <= DtFIM Then
                
                
       'FAZER SELEÇÃO DO PERIODO PARA FAZER O GRÁFICO
         
               
        End If

        Linha = Linha + 1
    Loop

End Sub

Atenciosamente,

Robson