Disponibilize um modelo.

Boa noite,

Veja se este código de exemplo ajuda:

Sub ImportarPlanilhas()
    Dim Pasta As String
    Dim Arquivo As String
    Dim Ws As Worksheet
    
    Pasta = "F:Temp"
    
    Application.ScreenUpdating = False
    Arquivo = Dir(Pasta & "*.xlsx")
    Do
        Workbooks.Open Pasta & Arquivo
            For Each Ws In Worksheets
                Ws.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next
        Workbooks(Arquivo).Close False
        Arquivo = Dir
    Loop While Arquivo <> ""
    Application.ScreenUpdating = True
    MsgBox "Fim de Execução da Macro"
End Sub

Todos os arquivos (e somente os que devem ser copiados) devem estar na mesma pasta.

Abraço

JValq,

Sua macro está dando erro pra mim!

Sempre nesta parte "Ws.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)"

MPrudencio,
Segue modelo!

Afinal tem 1 ou 2 abas cada arquivo?

Nesse caso eu tenho apenas uma!

Mas queria que juntasse todas as abas de cada planilha! Sempre..independente se tiver 1 ou 2

É possível:?

Bom dia,

Testei a macro com os arquivos disponibilizados e funcionou perfeitamente.
De qualquer forma segue novo código onde você pode selecionar a pasta onde estão os arquivos:

Sub ImportarPlanilhas()
    Dim Pasta As String
    Dim Arquivo As String
    Dim Ws As Worksheet
   
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        Pasta = .SelectedItems(1)
    End With
   
    Application.ScreenUpdating = False
    Arquivo = Dir(Pasta & "" & "*.xls*")
    Do
        Workbooks.Open Pasta & "" & Arquivo
            For Each Ws In Worksheets
                Ws.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next
        Workbooks(Arquivo).Close False
        Arquivo = Dir
    Loop While Arquivo <> ""
    Application.ScreenUpdating = True
    MsgBox "Fim de Execução da Macro"
End Sub

O código funciona independemente da quantidade de planilhas (abas) de cada arquivo (pasta de trabalho).

Abraço