Bom dia pessoal, sou novo no fórum.
Estou precisando criar uma macro para copiar valores de diversas planilhas, mas não tenho a mínima noção de VBA.
Andei pesquisando e consegui os elementos que eu preciso, mas não estou conseguindo juntar o quebra-cabeça.
Podem me ajudar ?

Sub Abrir_Copiar_Colar()

Dim FSO As Object
Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Pasta = "C:xxxxx" 'Pasta com as planilhas que serão abertas e copiadas

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

For Each Planilha In FSO.GetFolder(Pasta).Files

If InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMO

Workbooks.Open (Planilha)
OpenBook = ActiveWorkbook.Name

        
        

Windows(ThisWorkbook.Name).Activate

    
        
Application.CutCopyMode = False
Workbooks(OpenBook).Close False
PRÓXIMO:
Next

Application.ScreenUpdating = True

MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso"

Application.Calculation = xlCalculationAutomatic

End Sub

Com a macro acima, eu consigo abrir todos os arquivos xxx, funciona perfeitamente.
mas eu preciso colar os valores em ordem em outra planilha. Com o código abaixo
eu consigo fazer esta operação, mas não consigo abrir todos os arquivos da pasta xxx

Sub aberturadearquivo()

    Dim wsOrigem As Worksheet
    Dim wsDestino As Worksheet

    Workbooks.Open Filename:="C:xxxxarquivo.xlsx"

    Set wsOrigem = Workbooks("arquivo.xlsx").Worksheets(1)
    Set wsDestino = Workbooks("arquivos.xlsx").Worksheets("Plan1")
    
    With wsOrigem
        wsOrigem.Range("A1").Copy
        wsDestino.Range("B3").PasteSpecial xlValues
        wsOrigem.Range("B1").Copy
        wsDestino.Range("A3").PasteSpecial xlValues
        wsOrigem.Range("B1").Copy
        wsDestino.Range("A3").PasteSpecial xlValues
        
        wsOrigem.Range("B4:B62").Copy
        wsDestino.Range("C3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        
        Application.CutCopyMode = False
    End With

    Workbooks("arquivos.xlsx").Close SaveChanges:=True

    MsgBox "Importação de Dados Concluída"
    
End Sub

Podem me ajudar a fazer esta junção ?