Boa noite tonilanis,

Anexo planilha com o código solicitado. Favor verificar se te atende.

Caso for usar em outra planilha ajustar macro com os respectivos nomes das sheets e da sheet onde os dados são mesclados.

Abaixo código:

Sub Mesclar()

    Sheets("Tudo").Select
    Cells.Select
    Selection.ClearContents
    
Dim TotalLinhas As Integer
Dim contagem As Integer
Dim variavel2 As Integer
Dim variavel3 As Integer
Dim variavel4 As Integer

    Sheets("Arquivo1").Select
    Range("XFD1").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(C[-16383])"
    TotalLinhas = Range("XFD1").Value
    'MsgBox (TotalLinhas)
    contagem = 1
    variavel2 = 1
    
    variavel5 = 1
    variavel3 = 2
    variavel4 = 3
    
    Do While contagem <= TotalLinhas
    
    Sheets("Arquivo1").Select
    Rows(variavel2 & ":" & variavel2).Select
    Selection.Copy
    Sheets("Tudo").Select
    Range("A" & variavel5).Select
    ActiveSheet.Paste
    
    Sheets("Arquivo2").Select
    Rows(variavel2 & ":" & variavel2).Select
    Selection.Copy
    Sheets("Tudo").Select
    Range("A" & variavel3).Select
    ActiveSheet.Paste
    
    Sheets("Arquivo3").Select
    Rows(variavel2 & ":" & variavel2).Select
    Selection.Copy
    Sheets("Tudo").Select
    Range("A" & variavel4).Select
    ActiveSheet.Paste
    
    contagem = contagem + 1
    variavel2 = variavel2 + 1
    
    variavel3 = variavel3 + 3
    variavel4 = variavel4 + 3
    variavel5 = variavel5 + 3
    Loop
       
    Sheets("Tudo").Select
    Range("a1").Select
    MsgBox ("Operação concluída com sucesso!!!")
   
End Sub

Att.: Lucélio

Só mais um detalhe que esqueci de falar, como você disse que a quantidade de linhas das três planilhas são iguais a mesclagem é feita considerando a quantidade de linhas preenchidas na primeira planilha. Caso a quantidade de linhas das três planilhas seja diferente a macro deverá ser alterada.