Bom dia!!

O que é exatamente juntar dois arquivos, todas as guias do arquivo1 em todas as guias no arquivo2 ou todas as guias do arquivo1 em uma única guia do arquivo2?

Sua dúvida está confusa de entende, seja mais claro, poste um modelo de como os dados estão dispostos nos arquivos.

Em nossa pesquisa há muita coisa com tal relação.

Att

Alex,

Obrigado pela resposta rápida.

Tenho o arquivo 1 e o arquivo 2 com dados. Pretendo criar um "arquivo novo" com a informação toda junta, ou seja, com o que está no arquivo 1 e no arquivo 2. No entanto, o cabeçalho não se pode repetir.

Não encontro nada parecido no site.

Muito Obrigado.

Boa noite!!

Considerando que os arquivos estão fechados no diretório conforme macro.

Option Explicit
Sub AleVBA_15843()
    Dim sh As Worksheet
    Dim owbk As Workbook
    Application.DisplayAlerts = False
    Application.ScreenUpdating = 0
        Set sh = Sheets("Sheet1")
        Set owbk = Workbooks.Open("C:UsersAleVBADownloadsNew folder (3)Arquivo 1")
        Range("A2", Range("D" & Rows.Count).End(xlUp)).Copy
        sh.Range("A" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues
        owbk.Close False
        
        Set owbk = Workbooks.Open("C:UsersalexandreDownloadsNew folder (3)Arquivo 2")
        Range("A2", Range("D" & Rows.Count).End(xlUp)).Copy
        sh.Range("A" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues
        owbk.Close False
    Application.ScreenUpdating = 1
End Sub 

Att

Alex,

Acontece só que o caminho dos arquivos, bem como o nome, pode ser diferente de semana para semana. Como posso salvaguardar?

Esta parte do código tem de ser dinâmica:
Set owbk = Workbooks.Open("C:UsersAleVBADownloadsNew folder (3)Arquivo 1"

Muito obrigado pela ajuda

Alex, reparei também que quando é colado o segundo arquivo, cola em cima da última linha do primeiro arquivo (eliminando assim um registo).

Bom dia!!

Veja se ajuda..
Cuidado com o nome da paste era New folder (3) eu alterei para New folder

Option Explicit
Sub AleVBA_15843V2()
    Dim sh As Worksheet
    Dim owbk As Workbook
    Application.DisplayAlerts = False
    Application.ScreenUpdating = 0
        Set sh = Sheets("Sheet1")
        
        Application.DisplayAlerts = False
        Workbooks.Open Filename:=Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "")) & "New folderArquivo 1.xlsx"
        Range("A2", Range("D" & Rows.Count).End(xlUp)).Copy
        sh.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        Workbooks("Arquivo 1.xlsx").Close
        
        Workbooks.Open Filename:=Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "")) & "New folderArquivo 2"
        Range("A2", Range("D" & Rows.Count).End(xlUp)).Copy
        sh.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        Workbooks("Arquivo 2.xlsx").Close
    Application.ScreenUpdating = 1
End Sub

Alex,

Me deparei com um problema. O "arquivo Mãe", para onde é copiada a informação dos outros arquivos, tem mais de 100.000 linhas. Quando o código conta o número de linhas para depois copiar para a primeira linha vazia, não está acontecendo. O código cola logo na segunda linha do ficheiro, esmagando informação importante. Penso que o problema esteja relacionado com o tamanho do arquivo e número de linhas preenchidas. Existe forma de contornar?

Boa tarde!!

Será que tem como postar os arquivo com dados falsos e mesmo tamanho de linhas etc?

Eu tentei o que entendi e o que pude, apesar de não ter resolvido seu caso.

Att

Alex,

Acabei por resolver.

Obrigado por toda a ajuda.