Este codigo me funciona para copiar archivos de cualquier extension, pruebalo
Dim sFicOri As String, sFicDes As String
Dim Fs As Variant
sFicOri = "Ruta origen (Incluyendo nombre del archivo)"
sFicDes = "Ruta destino (Incluyendo nombre del archivo)"
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile sFicOri, sFicDes, True
Suete!