Mappenstructuur aan de hand van excelbestand

[mike564]

Goedemorgen!

Ik heb op het forum een code gevonden dat aardig aan mijn wensen voldoet, maar welke ik ook graag wat beter zou willen snappen en uit zou willen breiden.
Onderstaand de code zoals hij nu is:

Const Main = "U:\Test\" 'Zou het liefst willen dat dit een submain zou zijn, maar kreeg dit niet voor elkaar, dus bijv. U:\Test\2016\
Const SubMain = "Test" 'Moet geen tekst zijn maar een kopie van een aantal mappen
Sub MaakMappen()
    Dim q1 As Variant, i As Integer
    q1 = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row) 'Hoe moet ik het aanpakken als de mapnaam een combinatie van kolom A en B moet zijn, op de huidige manier werkt het niet
    If Len(Dir(Main)) = 0 Then MkDir Main
    For i = LBound(q1) To UBound(q1)
        MkDir Main & q1(i, 1)
        MkDir Main & q1(i, 1) & "\" & SubMain
    Next i
End Sub

Mvg,
Mike