Puedes utilizar la misma macro.
Cambia las Ruta1 y Ruta2 (origen y destino)
En tu hoja de excel en la columna A, escribe los nombres de los archivos .csv
Sub Copiar_CSV()
'Por.Dante Amor
ruta1 = "C:\FICHAS_LINARES_TODAS\"
ruta2 = "C:\FICHAS_LINARES_JULIO\"
'
Application.ScreenUpdating = False
Application.StatusBar = False
On Error Resume Next
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To u
Application.StatusBar = "Copiando archivo : " & i & " de : " & u
arch = Cells(i, "A")
If Dir(ruta1 & arch) <> "" Then
FileCopy ruta1 & arch, ruta2 & arch
werr = Err.Number
If werr = 0 Then
Cells(i, "B") = "Copia existosa"
Else
Cells(i, "B") = "Error: " & werr & " " & Err.Description
End If
Else
Cells(i, "B") = "No existe el archivo"
End If
Err.Number = 0
Next
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Fin copiar"
End SubAvísame cualquier duda