Cria automaticamente pastas usando entradas de campo do Excel (usando uma pasta de modelo)

Question

Eu preciso gerar pastas para novos números de trabalho que são gerados no Excel.

Toda vez que a planilha do Excel é atualizada com um novo número de trabalho, preciso gerar uma pasta em um local definido, com o nome da pasta sendo o número do trabalho da planilha do Excel

Eu encontrei e usei

Criar automaticamente pastas usando entradas de campos do Excel

Sub CreateFolders()

'Variable definations
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
' Set the Folder where the individual folders should be created
ParentFolderPath = "Folders"

Set FolderListRange = ActiveSheet.Range("A2:A64000").SpecialCells(xlCellTypeConstants)

For Each FolderRange In FolderListRange
    If FolderRange.Offset(0, 1).Value = "" Then GoTo Continue

    FolderName = ParentFolderPath & "\" & FolderRange.Value & "-" & Format(FolderRange.Offset(0, 1).Value, "dd-mm-yyyy")

    If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
        FileSystem.MkDir FolderName
    End If

Continue:
    Next

Handle:
End Sub

Isso funciona, no entanto, eu quero saber se é possível criar a nova pasta usando uma pasta de modelo?

A nova pasta de trabalho contém uma carga de subpastas que precisam estar lá.