Este fórum está sendo desativado

[gilsonBarreto]

Tenho que fazer uma atividade, onde tenho 3 arquivos de excel.xlsx, cada arquivo 1 cidade e tenho uma arquivo excel.xlsm( habilitada para macro). Eu tenho que copiar as planilhas de cada arquivo xlsx e colar elas com um espaço de 2 celulas no aquivo xlsm. E deve ser feito com macro usando um laço de repetição (While ou For), mas não sei como fazer começei a usar Macros e VBA a pouco tempo

Esse é o código da minha Macro

Código: Selecionar todos

Sub LoopCopiarArquivos()

Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet

Columns("A:J").Select
    Selection.Clear

Workbooks.Open Filename:="C:\Users\BARREO\Desktop\atividade\Metas Barra Bonita.xlsx"

Set wsOrigem = Workbooks("Metas Barra Bonita.xlsx").Worksheets("Metas")

Set wsDestino = ThisWorkbook.Sheets("Dados")

With wsOrigem
Range("B4:H13").Copy Destination:=wsDestino.Range("B2")
End With

Workbooks("Metas Barra Bonita.xlsx").Close



End Sub

Aqui anexei a planilha que eu usei para fazer a macro.
https://etecspgov-my.sharepoint.com/:u: ... 1&e=kntNGK