cut and paste images from filename

Bump no response

Try this...

Sub Test()
Const FileCol = 1
Const FirstDataRow = 1

Const SourcePath = "c:\temp\"
Const TargetPath = "c:\temp\test\"

Dim LastRow, RowLoop As Range

With ThisWorkbook.Sheets(1)
  LastRow = .Cells(.Rows.Count, FileCol).End(xlUp).Row
  
  For Each RowLoop In Range(Cells(FirstDataRow, FileCol), Cells(LastRow, FileCol)).Cells
    If RowLoop.Value <> "" Then
      If Dir(SourcePath & RowLoop.Value) <> "" Then
        FileCopy SourcePath & RowLoop.Value, TargetPath & RowLoop.Value
      End If
    End If
  Next RowLoop

  MsgBox "Finished file copy"
  
End With
     
End Sub