Excel Copiar e colar de uma planilha usando o ThisWorkbook e ActiveWorkbook

[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? 

 

 

[AfonsoMira]

Boas @Matheus Orchulhak ,

 

Experimente algo deste género:
 

Dim caminho As String
Dim este As Workbook, outro As Workbook

Application.DisplayAlerts = False
caminho = ("C:\Users\mathe\OneDrive - Fugro\DRILLING\demandas\220718\1.xlsx")

Set outro = ActiveWorkbook
Set este = Workbooks.Open(caminho)

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