Visual Basic Filtro VBA Listbox não carrega

[PatraoBruceBR]

Private Sub cb_tamanho_Change()

Planilha3.Range("P2") = cb_tamanho
Call Filtro

End Sub

Private Sub listsaida_Click()

End Sub

Private Sub txt_produto_Change()

Planilha3.Range("L2") = txt_produto
Call Filtro

End Sub

Private Sub txt_referencia_Change()

Planilha3.Range("O2") = txt_referencia
Call Filtro

End Sub

Private Sub UserForm_Initialize()

    Dim base As Range
    Dim NOME As String
    
    
    Set base = Planilha3.Range("A1").CurrentRegion
    
    NOME = "'" & Planilha3.Name & "'!"
      
    listsaida.RowSource = NOME & base.Address
    Planilha3.Range("K2:S2").ClearContents

End Sub

Sub Filtro()

Dim base As Range
Dim crt As Range
Dim filtrada As Range
Dim NOME As String

Set base = Planilha3.Range("A1").CurrentRegion
Set crt = Planilha3.Range("K2:S2")

base.AdvancedFilter xlFilterCopy, crt, Planilha2.Range("A1:I1")

Set filtrada = Planilha2.Range("A1").CurrentRegion
NOME = "'" & Planilha2.Name & "'!"


LISTBOX.listsaida.RowSource = NOME & filtrada.Address

End Sub

Pessoal, boa tarde!

 

Gostaria da ajuda de vocês nesta questão, criei uma listbox para a minha plan saída, até aí tudo bem, os dados e colunas aparecem normalmente, mas infelizmente travei na parte do filtro, o meu filtro roda normal, sem nenhum problema com o depurador, porém não filtra os dados, eles permanecem os mesmos, poderiam me ajudar?