'************************************
'FileCopy SourceFile, DestinationFile ' Copy source to target.
'***********************************
Sub test()
For Each cel In Range("A2", Cells(Rows.Count, "A").End(xlUp))
If Dir(cel.Offset(, 1) & cel) <> "" And Dir(cel.Offset(, 2), vbDirectory) <> "" Then
FileCopy cel.Offset(, 1) & cel, cel.Offset(, 2) & cel
End If
Next
End Sub