Cara, não entendi o que vc deseja (devo estar lesado j no começo do ano), porém, saca esses comandos:

ActiveWorkbook = usa o arquivo que estiver em foco (selecionado)
ActiveSheet = usa a planilha ativa/selecionada

Então vc teria algo do tipo:

ActiveWorkbook.ActiveSheet.Range("a2:e100").ClearContents

Sem precisar referenciar a planilha pelo nome.

Caso, vc queira uma planilha para ser fixa, independente do que vc for fazer, vc pode declará-la como uma variável:

Dim Origem As Worksheet

Origem = ThisWorkbook.ActiveSheet

com isso, mesmo mudando de planilhas, a origem vai permanecer a ue vc definiu.

Espero que ajude.

Em tempo:

Seria isso?

Sub copiar()
Sheet2.Range("a2:e100").ClearContents
Sheet2.Activate

ActiveWorkbook.ActiveSheet.Range("A4:E5").Copy Destination:=Sheets("Plan2").Range("A1")

ActiveWorkbook.ActiveSheet.Range("C7").Copy Destination:=Sheets("Plan2").Range("E7")
ActiveWorkbook.ActiveSheet.Range("C9").Copy Destination:=Sheets("Plan2").Range("E8")
ActiveWorkbook.ActiveSheet.Range("C12").Copy Destination:=Sheets("Plan2").Range("E9")

End Sub

gtsalikis,
Valeu! Até sem entender você resolveu o problema.
Alterei o código substituindo pelos comandos que você indicou e funcionou perfeitamente.
Obrigado.

O código ficou assim:

Sub copiar()
Sheet2.Range("a2:e100").ClearContents

ActiveWorkbook.ActiveSheet.Range("A4:E5").Copy Destination:=Sheets("Plan2").Range("A1")

ActiveWorkbook.ActiveSheet.Range("C7").Copy Destination:=Sheets("Plan2").Range("E7")
ActiveWorkbook.ActiveSheet.Range("C9").Copy Destination:=Sheets("Plan2").Range("E8")
ActiveWorkbook.ActiveSheet.Range("C12").Copy Destination:=Sheets("Plan2").Range("E9")

Sheet2.Activate
End Sub

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.