Olá galera, boa noite.
Em uma certa planilha tenho um total de nada menos de 8000 registros, e pretendia usar um listview em um form para carregar as informações, oque com essa quantidade de dados será completamente inviavel pelo tempo de load do formulário, acrescentei um filtro ao carregar o form, então carrega apenas a data especifica, oque faz com que carregue instantaneamente. Só que para tal gostaria de carregar os dados de um intervalo de pelo menos duas semanas anteriores a data atual, isso sempre que carregasse. Só que não sei exatamente como utilizar esse intervalo de datas na condição For do form :/

ListView1.ListItems.Clear
Set ws = Sheets("PLAN1")
linhafinal = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To linhafinal

transp = ws.Cells(i, 6).Text
Select Case transp

Case "BMG"
        cor = &H8000000D
        
    Case "MÁXIMA"
        cor = &HFF&
        
    Case "RODONAVES"
        cor = &H4000&
        
    Case Else
        cor = &H0&
        
End Select

If ws.Range("A" & i) = CDate(TxtFiltro.Text) Then
Set Item = ListView1.ListItems.Add(Text:=ws.Cells(i, 1))
Item.SubItems(1) = ws.Cells(i, 2)
Item.ListSubItems(1).ForeColor = cor
Item.SubItems(2) = ws.Cells(i, 3)
Item.ListSubItems(2).ForeColor = cor
Item.SubItems(3) = ws.Cells(i, 4)
Item.ListSubItems(3).ForeColor = cor
Item.SubItems(4) = ws.Cells(i, 5)
Item.ListSubItems(4).ForeColor = cor
Item.SubItems(5) = ws.Cells(i, 6)
Item.ListSubItems(5).ForeColor = cor
Item.SubItems(6) = ws.Cells(i, 7)
Item.ListSubItems(6).ForeColor = cor
Contador = Contador + 1
End If
Next

End Sub

Esse código só carrega a data da textbox, mas queria carregar tudo dentro de um prazo de 14 dias, ajuda?