Excel VBA сортировать и группировать пути в папки

Question

Код ниже:

Sub cmdList()
Dim sPath   As String
Dim fOut    As Variant
Dim r       As Integer
Dim Cell As Range

With Application.FileDialog(msoFileDialogFolderPicker) '.Title = "Select directory"
    .InitialFileName = ThisWorkbook.Path & "\"
    .AllowMultiSelect = False
    If .Show = 0 Then Exit Sub
    sPath = .SelectedItems(1)
End With
Cells(4, 1) = sPath
fOut = Split(CreateObject("WScript.Shell").exec("cmd /c dir """ & sPath & """ /a:-h-s /b /s").StdOut.ReadAll, vbNewLine) 'List all

r = 5: Range(r & ":" & Rows.Count).Delete
Cells(r, 2).Resize(UBound(fOut), 1).Value = WorksheetFunction.Transpose(fOut)
End Sub

После того, как сортировка произведет этот вывод:

Я бы тогда хотел преобразоватьэти пути к гиперссылкам и группируются на основе имен папок.Вывод будет выглядеть следующим образом:

Я пытался использовать объект файловой системы, но он был слишком медленным в сети.Сценарий оболочки был намного быстрее.Мне нужна помощь с остальным!

Спасибо, все.