Подключите библиотеку: Tools - References... - Microsoft Scripting Runtime.
В маке этот макрос не будет работать, т.к. в маке нет библиотеки "Microsoft Scripting Runtime".
Для мака нужно писать другой код.
Макрос
Sub макрос()
Dim fso As Scripting.FileSystemObject
Dim FN_src As String, path_res As String
' Создаём объект 'FileSystemObject', который умеет работать с папками и файлами, и присваиваем
' ему имя 'fso'. Далее в коде будем обращаться к объекту 'FileSystemObject' по имени 'fso'.
Set fso = New Scripting.FileSystemObject
' Записываем в переменные полные имена папок.
' После полного имени целевой папки нужно указать слеш.
FN_src = "C:\Users\User\Desktop\папка"
path_res = "C:\Users\User\Desktop\Сюда скопировать\"
' Копирование папки 'папка' в папку 'Сюда скопировать'.
' Третий параметр задаёт: нужно удалить имеющуюся папку или нет.
' False - не нужно удалить. В этом случае произойдёт run-ошибка, если в целевой папке
' есть папка с таким именем.
fso.CopyFolder FN_src, path_res, False
End Sub