Boa tarde pessoal,

Estou aos poucos entrando na área de VBA e hoje no trabalho preciso muito desses recursos.
Porém os códigos que tento fazer ficam grandes.

Gostaria de uma ajuda para simplificar.

O código é para abrir uma planilha copiar uns dados, colar na original e fechar.
Porém preciso fazer isso com outras duas planilhas.

Queria simplificar o código e adicionar as outras planilhas no mesmo código.

Sub Copiar_Dados()

    Workbooks.Open Filename:="C:...Arquivo.xlsm"
    OpenBook = ActiveWorkbook.Name
    
    Sheets("BASE").Select
    Range("C4:C79").Select
    Selection.Copy
    Windows(ThisWorkbook.Name).Activate
    Sheets("DadosST").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Windows(OpenBook).Activate
    Sheets("BASE").Select
    Range("AS4:BD79").Select
    Selection.Copy
    Windows(ThisWorkbook.Name).Activate
    Sheets("DadosST").Select
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Windows(OpenBook).Activate
    Sheets("BASE").Select
    Range("U4:V79").Select
    Selection.Copy
    Windows(ThisWorkbook.Name).Activate
    Sheets("DadosST").Select
    Range("R5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
        
    Windows(OpenBook).Activate
    Workbooks(OpenBook).Close False
    Range("A4").Select
    
End Sub