SonStr = Worksheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row

    For x = 1 To SonStr

        FileCopy ThisWorkbook.Path & "\fotograf\kamera.jfif", ThisWorkbook.Path & "\yeni fotografların aktarılacagı yer\" & Sheet1.Cells(x, 1) & "kamera.jfif"

    Next x

MsgBox "bitti"