Bom dia, amigo; Pelo que eu entendi, você precisa inserir o código abaixo no módulo EstaPasta_de_trabalho que iá resolver todo o seu problema sem dar...

Boa tarde, amigo. Segue o que você precisa. Private Sub Backup() FileCopy Endereço_Atual, Endereço_Final End Sub Atenciosamente;