Hata falan mi verdi?
Normal ad değiştirmeden taşıyabiliyor musunuz?
Eğer biliyorsanız kodu yazar mısınız?
Aşağıdaki kodu dener mısınız?

Dim fso As Object 

Dim kaynakDosya As String 

Dim HedefDosya As String 

Set fso = CreateObject("Scripting.FileSystemObject") 

kaynakDosya = KaynakDosyaAdresiveAdi 

HedefDosya = hedefKlasor & "\"  & yeniad & ".png"

fso.MoveFile kaynakDosya, HedefDosya 

Set fso = Nothing