Hoje estou com problemas para baixar arquivos,mas no link abaixo tem um modelo que faz o que quer, tanto por um formulário quanto por ImputBox : http://excelmax.blogspot.com.br/2012/04 ... as_16.html

Sub relatorio()
    
    'Range onde serão mostrado as datas filtradas
    Plan1.Range("F2:H100").ClearContents
    
    DataIni = InputBox("Digite a data Inicial")
    dataFim = InputBox("Digite a data Final")
    
    lin = 2
    linha = 2
    
    Do Until Plan1.Cells(lin, 1) = ""
        If Plan1.Cells(lin, 2) >= CDate(DataIni) And Plan1.Cells(lin, 2) <= CDate(dataFim) Then
            Plan1.Cells(linha, 6) = Plan1.Cells(lin, 1)
            Plan1.Cells(linha, 7) = CDate(Plan1.Cells(lin, 2))
            Plan1.Cells(linha, 8) = Plan1.Cells(lin, 3)
            linha = linha + 1
        End If
        lin = lin + 1
    Loop
    MsgBox "Processo concluído com sucesso - de: " & DataIni & " até: " & dataFim
End Sub

Veja se consegue adaptar.

[]s

Mauro Coutinho exatamente isso
Muito obrigado!

Qualquer problema te chamo!