Copy specific files from one directory to another

A very basic approach:

Option Explicit

Sub MoveFiles()
Dim srcFOLDER As String
Dim tgtFOLDER As String
Dim fRNG      As Range
Dim fName     As Range
Dim BAD       As Boolean

srcFOLDER = "C:\2013\"              'remember the final \ in this string
tgtFOLDER = "C:\2013\MovedFiles\"   'remember the final \ in this string
Set fRNG = ActiveSheet.Range("A:A").SpecialCells(xlConstants)

For Each fName In fRNG
    If Len(Dir(srcFOLDER & fName.Text)) Then
        Name srcFOLDER & fName.Text As tgtFOLDER & fName.Text
    Else
        fName.Interior.ColorIndex = 3
        BAD = True
    End If
Next fName
    
If BAD Then MsgBox "Some files were not found. These were highlighted for your reference."

End Sub