Перемещение папок в другие папки по списку из excel

[АННА-ЕАО]

Здравствуйте С праздником, Рождеством
Мне нужно по работе существующие папки(около 400 шт.) со всем содержимым переместить в новые папки-они созданы заранее (около 200 шт)
в столбце А -папки которые нужно переместить
в столбце В -папки в которые нужно переместить.
Помогите, пожалуйста

Искала в интернете, но конкретно то что мне нужно найти не смогла, если уже была подобная тема просьба дать ссылку.
Заранее спасибо

[EducatedFool]

переместить надо файлы вместе с папкой, или переместить только содержимое папки в другую папку?
переместить, - в смысле, что в прежнем месте папки исчезнут, а в новом - появятся? (в отличие от копирования)

PS: я бы сделал это вручную - средствами программы массового переименования файлов и папок (таких программ - множество) просто переименовал бы папки (обрезав лишний текст),
а потом бы вручную переместил бы все папки из одной папки в другую
(заняло бы секунд 20 всё это, + время на поиск программы переименования папок)

или эту операцию надо делать регулярно?

[АННА-ЕАО]

По вопросам :
1.Именно переместить, а не копировать и не переименовывать папки с содержимым.
2.Про регулярность ~ну тут уж на усмотрение начальства - теперь они хотят видеть это так.

EducatedFool, в приложенном мною файле более подробно и понятно написано то что мне нужно, посмотрите его пожалуйста.

[EducatedFool]

А что конкретно не получается?
ввел в поисковик фразу VBA скопировать папку
и сразу нашел пример кода

вот, например

Sub CopyPath(sSourcePath as string)
    Dim rc As Long
    Dim sTargetPath as string
    sTargetPath = "k:\" & Mid$(sSourcePath,4)
    MkDir sTargetPath
    rc = Shell("c:\Windows\System32\xcopy.exe """ &  sSourcePath & """ """ &  sTargetPath & """ /T /E", 0)
End Sub