Boa Tarde!
Estou trabalhando numa macro que atualiza as informações de um arquivo (Solicitação de Compra / aba: Tabela) com base nas informações de uma das abas de um segundo arquivo (Tabela de Preços / aba: Tabela).
Já fiz inúmeras tentativas, mas só obtenho erro (diversos erros, mas para o código abaixo estou obtendo: "subscrito fora do intervalo").
Não tenho muita experiência e não estou conseguindo evoluir. Alguém pode me ajudar, por favor?

Sub ATUALIZAR_CONTEUDO_TABELA()
' Posicionar-se em Tabela de preçoTabela e copiar conteúdo
    Call Atualizar_Tabela_em_Pedido_1
'Voltar para solicitação de compras
    Windows("Solicitação de Compra.xlsm").Activate
    Sheets("Tabela").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
    Application.CutCopyMode = False
    Sheets("APOIO").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWorkbook.Save
    Sheets("Menu").Select
    Range("C3").Select
' Retirar selação, setar em menu e fechar Tabela de Preço (arq)
    Call Atualizar_Tabela_em_Pedido_2
'Voltar para solicitação de compras
    Windows("Solicitação de Compra.xlsm").Activate
    Sheets("Menu").Select
    Range("A1").Select
End Sub

-----------------------------------------------------------------------------------------------------------------
Sub Atualizar_Tabela_em_Pedido_1()
'Abrir Arquivo Tabela
    Workbooks.Open Filename:="E:TempComprasFabricioCOMPRASTabela de preço.xlsm" 

O ERRO OCORRE AQUI (Após o arquivo aberto, aparece o pop up de erro)

    Call IR_Tabela_1
'Setar na aba correta
    Sheets("Tabela").Select
'Selecionar intervalo a ser copiado
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
End Sub
-----------------------------------------------------------------------------------------------------------------
Sub Atualizar_Tabela_em_Pedido_2()
'Ir para aba Tabela de preço
    Windows("Tabela de preço.xlsm").Activate
    Sheets("Tabela").Select
    Range("c3").Select
    Sheets("Menu").Select
    Range("A1").Select
'Fechar tabela de preços
    ThisWorkbook.Close "Tabela de preço.xlsm"
End Sub
-----------------------------------------------------------------------------------------------------------------
Sub IR_Tabela_1()
    Windows("Tabela de preço.xlsm").Activate
    Sheets("Tabela").Select
    Range("c3").Select
End Sub