Sub Copy_File_()
Dim myPath As String, myName As String, myName1 As String, nm As String
Dim x As Integer
Dim i As Integer
Dim y As Integer
  Set sh1 = ThisWorkbook.Sheets(1)
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Папка -куда копируем документы": .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & "\"
    End With
     x = ThisWorkbook.Sheets(1).Range("b" & Rows.Count).End(xlUp).Row
For i = x To 3 Step -1
    If Not sh1.Cells(i, 2).Offset(, 1) = "" Then
       myName = sh1.Cells(i, 2)
        y = InStrRev(myName, "\")
        myName1 = Right(myName, Len(myName) - y) 'имя копируемого файла.
        sNewFileName = myPath & myName1
On Error GoTo ad:
        sh1.Cells(i, 2).Offset(, 2) = "Ok"
        FileCopy myName, sNewFileName
    End If
Next i
    MsgBox "Файлы скопированы", vbInformation, ""
Exit Sub
ad:
sh1.Cells(i, 2).Offset(, 2) = "Error"
Resume Next
End Sub