根据单元中的文件路径将文件复制到另一个单元中指定的目标文件路径？

Question

我每月都有一个合理的定期流程，试图将文件从一个文件夹移动到另一个文件夹。它是几个不同的源文件夹中的几个文件，也到几个目标文件夹中。为了节省时间，我想在第三种目录文件中创建一个宏，该宏将根据一个单元格中的给定文件路径（我们将其称为“源”）将文件复制到某些文件中给定的文件路径其他单元格（“目标”）。我只想开始使用一个源文件移动到一个目标路径来开始此操作，以为以后可以为其中几个文件复制宏。我已经使用此处找到的类似内容整理了一些代码，但似乎找不到文件或路径。

Dim rngFile As Range, cel As Range
Dim desPath As String, filename As String

Set rngFile = ThisWorkbook.Sheets("Sheet1").Range("A26")

desPath = ThisWorkbook.Sheets("Sheet1").Range("B26") 'change to a valid path

For Each cel In rngFile
    If Dir(cel) <> "" Then
        filename = Dir(cel) 'Returns the filename
        FileCopy cel, desPath & filename 'copy to folder
    End If
Next

End Sub