Excel Macro para abrir várias planilhas - EXCEL

[mahhgebara]

Pessoal, 

Bom dia.

 

Preciso de uma ajuda: tenho várias arquivos csv (que já estão sendo abertos no excel) em uma pasta.

Preciso abrir cada um deles, fazer um determinado filtro e colar em uma nova pasta, juntando todos eles.

Criei o seguinte código:

 

Sub Macro3()
'
' Macro3 Macro
'

'
    Selection.AutoFilter
    ActiveSheet.Range("$A:$AF").AutoFilter Field:=11, Criteria1:= _
        "Criada pelo Sistema"
    Range("A2:AF2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Pasta1").Activate
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
End Sub

 

Ele faz os filtros, e joga para a outra planilha.

 

Gostaria de ajuda para incrementar e conseguir abrir planilha por planilha, fazer os filtros, jogar para a nova planilha e fechá-la, criando um looping.

 

Poderiam me auxiliar, por favor?

[mahhgebara]

alguém?