Salvar dados planilha de um arquivo em outra planilha outro arquivo

[COMPRADOR]

Boa tarde..

Preciso que toda vez que atualizar um arquivo front end no excel, que ele salve os dados da planilha ("Importa_Access") para outro arquivo sobrescrevendo os dados da planilha ("registro de endereços").

consigo o que quero se colocar no esta pasta de trabalho o código abaixo: porque tá criando conexão, não sei se tem algum jeito mais fácil e correto de fazer.

Obrigada

 

Option Explicit

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim wb      As Workbook

Dim ws      As Worksheet

 

Set ws = Worksheets("Importa_Access")

Set wb = Workbooks.Open(Replace(ThisWorkbook.Path, "01-Controle_Unidades", "05-Banco_de_Dados_Engenharia\") & "ARQUIVO DE DADOS.xlsm")

ws.Range("a1:dd10000").Copy Destination:=Workbooks(wb.Name).Sheets("REGISTRO ENDEREÇOS").Range("A1")

    wb.Save

    wb.Close

   

    Set wb = Nothing

 

End Sub

[COMPRADOR]

deu certinho assim:

 

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim wExpedientes As Workbook, wcola As Workbook

Set wExpedientes = Workbooks.Open(Replace(ThisWorkbook.Path, "01-Controle_Unidades", vbNullString) & "05-Banco_de_Dados_Engenharia\ARQUIVO DE DADOS.XLSM", ReadOnly:=False)
Set wcola = ThisWorkbook

ThisWorkbook.Sheets("Importa_Access").Range("A1").Select
Range("a2:dd50000").Select
Selection.Copy

wExpedientes.Activate
wExpedientes.Sheets("REGISTRO ENDEREÇOS").Select
Range("a2:dd50000").Select
Selection.PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.DisplayAlerts = False
wExpedientes.Close SaveChanges:=True

On Error Resume Next

End Sub
 

valeu !!