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"