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"