Hai provato a usare un oggetto del tipo FileSystemObject, come ad esempio
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.Copyfile FileOrigine, PathDestinazione, True
Set fso = Nothing

?