Matheus Orchulhak

Tenho que montar diversos relatórios(planilha 2) com nomes e localizações diferentes, as informações que vão em todos são oriundas da mesma "base de informação(planilha1)". Salvei os códigos em um planilha 3, que serve de template para a planilha 2 de maneira que eu as não modifique. Cheguei na seguinte "Solução": Dim caminho As Variant Dim este As Workbook, outro As Workbook Application.DisplayAlerts = False caminho = ("C:\Users\mathe\OneDrive - Fugro\DRILLING\demandas\220718\1.xlsx") Workbooks.Open caminho Set este = ThisWorkbook Set outro = ActiveWorkbook outro.Sheets(2).Range("A2").Copy este.Sheets(1).Range("B28").PasteSpecial outro.Sheets(2).Range("B2:F2").Copy este.Sheets(1).Range("I29:I33").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Porém, o que acontece é que ele cola na planilha 3 (Template) ao invés de colar na planilha 2 (Relatório Original), eu acho que precisaria de uma alternativa para o ThisWorkbook, mas não faço ideia do que poderia ser usado. Alguém faz ideia do que pode ser?

@Midori, muito obrigado! Estou começando no VBA... você teria alg material de recomendação para essas aplicações? (automatização de tarefas simples e repetitivas)

Preciso atribuir o mesmo elemento na coluna ao lado de maneira sequencial, mas estou com dificuldades A macro seria basicamente essa diagramação: Copiar e colar sucessivamente. Abraços