yüklediğiniz dosyada bu kodları çalıştırdım hata vermedi
sizin dosya yolunuz farklıysa resmi yada klasörü bulamamış olabilir

dosya adını ve yolunu da değiştirdim hata uyarısı ne olacak diye ama sizde verilen uyarı bende verilmedi sorun başka bir şeyden kaynaklanıyor olabilir

Sayın enginbeyy
Eğer A sütunundaki verilere göre isimlendirilip çoğaltılacaksa alttaki kodu dener misiniz?

Son = Cells(Rows.Count, 1).End(3).Row

For x = 1 To Son

FileCopy ThisWorkbook.Path & "\fotograf\kamera.jfif", ThisWorkbook.Path & "\yeni fotografların aktarılacagı yer\" & Range("A" & x).Value & ".jfif"

Next x

MsgBox "bitti"

Teşekkürler, oldu.