Il VBA ha in se la Funzione per Copiare/Rinominare/Spostare in un solo colpo...
Sub FileCopy(Source As String, Destination As String)
Membro di VBA.FileSystem
Ovviamente questa funzione non fa tutto lei... devi ricavare il NomeFile iniziale usando le Funzioni di manipolazione stringa(mid$/Right$ ecc... che trovi documentate nella guida) ricavare il NOme, quindi concatenarlo alla Path di destinazione...
Esempio se hai:
C:\Path1\NomeFile.bmp
e devi copiarlo, rinominandolo in:
D:\PathXX\SubPathyy\Rinominato.bmp
è evidente che devi ricavare dalla 1° [NomeFile.bmp], quindi concatenarlo a [D:\PathXX\SubPathyy\] e passare i valori alla Funzione FileCopy.