Prova con questi comandi:

Dim SourceFile As String
Dim DestinationFile As String

Dim fso As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")

'''' NomeCartellaOrigine deve essere una cartella e non una variabile

SourceFile = App.Path & "\NomeCartellaOrigine" ' Definisce il nome del file di origine.
DestinationFile = App.Path & "\NomeCartellaDestinazione" ' Definisce il nome del file di destinazione.


'''' se la cartella NomeCartellaDestinazione esiste già, non eseguire il comando successivo
Set f = fso.CreateFolder(DestinationFile)

Set f = fso.copyfolder(SourceFile, DestinationFile)