Este fórum está sendo desativado

[marcoenz]

prezados, bom dia

eu tenho o seguindo código

Código: Selecionar todos

Sub atualizar_dados()

    Dim produção As Object
    
    Set produção = Workbooks.Open("C:\Users\Marquinho\Documents\produção\produção.xlsx")
    Range("C3:D7").Select
    Selection.Copy
    produção.Close
    ActiveSheet.Paste
    
End Sub

esse código copia as informações de uma planiha e cola em outra, porém ele muda a ordem se a planilha final já estiver com outros dados.

eu estou enviando os arquivos para melhor entendimento

desde já agradeço

[mucascosta]

Veja se o anexo lhe ajuda...