VBA - folder/file names to spreadsheet list

Here are the details:

Archive folder, where I'll prompt it to ask which folder to start from (year). I'd like it to move to the next column, then list the subfolders (months), then for each subfolder list in the next column (for days). Then, lastly, the subfolders (job #), listed in the next column. I've attached an example of what i'd like it to look like after code is done. Is this possible?

Thanks for any help you guys/gals can give me!!

Sub StartListing()
    
    Dim TopFolderName As String
    Dim TopFolderObj
    Dim DestinationRange As Range
    Set FSO = CreateObject("Scripting.FileSystemObject")
    TopFolderName = "D:\DATA" '<<< CHANGE TO YOUR FOLDER
    Set DestinationRange = Worksheets(1).Range("A1")
    Set TopFolderObj = FSO.GetFolder(TopFolderName)
    ListSubFolders OfFolder:=TopFolderObj, DestinationRange:=DestinationRange
    End Sub

   Sub ListSubFolders(OfFolder As Variant, DestinationRange As Range)
    Dim SubFolder
    DestinationRange.Value = OfFolder.Path
    Set DestinationRange = DestinationRange.Offset(1, 1)
    For Each SubFolder In OfFolder.SubFolders
        ListSubFolders OfFolder:=SubFolder, _
            DestinationRange:=DestinationRange
    Next SubFolder
    Set DestinationRange = DestinationRange(1, 0)
    
    End Sub

Nice!! Thanks