I'm using this code for list some folder i need in my spreadsheet

Code:
 

Option Explicit

Sub CreateList()
    Application.ScreenUpdating =False
    Workbooks.Add    ' create a new workbook for the folder list
    ' add headers
    With Cells(1,1)
        .Value ="Folder contents:"
        .Font.Bold =True
        .Font.Size =12
    EndWith
    Cells(3,1).Value ="Folder Path:"
    Cells(3,2).Value ="Folder Name:"
    Cells(3,3).Value ="Size:"
    Cells(3,4).Value ="Subfolders:"
    Cells(3,5).Value ="Files:"
    Cells(3,6).Value ="Short Name:"
    Cells(3,7).Value ="Short Path:"
    Range("A3:G3").Font.Bold =True
    ListFolders BrowseFolder,True
    Application.ScreenUpdating =True
EndSub

Sub ListFolders(SourceFolderName AsString, IncludeSubfolders AsBoolean)
    ' lists information about the folders in SourceFolder
    Dim FSO    As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
    Dim r      AsLong
    Set FSO =New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    ' display folder properties
    r = Cells(Rows.Count,1).End(xlUp).Row +1
    Cells(r,1).Value = SourceFolder.Path
    Cells(r,2).Value = SourceFolder.Name
    Cells(r,3).Value = SourceFolder.Size
    Cells(r,4).Value = SourceFolder.SubFolders.Count
    Cells(r,5).Value = SourceFolder.Files.Count
    Cells(r,6).Value = SourceFolder.ShortName
    Cells(r,7).Value = SourceFolder.ShortPath
    If IncludeSubfolders Then
        ForEach SubFolder In SourceFolder.SubFolders
            ListFolders SubFolder.Path,True
        Next SubFolder
        Set SubFolder =Nothing
    EndIf
    Columns("A:G").AutoFit
    Set SourceFolder =Nothing
    Set FSO =Nothing
    ActiveWorkbook.Saved =True

EndSub

So i want to click in the macro and select a folder that i will create every month, July for example will be the folder that i select and the new sheet need to be named "JULY".
The list of folders need to be formatted as table. like in this example (every name in the list is the name of a folder from this month )



It's my first week learning VBA so i really want to know how cai i do that