Create Folder and Sub Folder with Excel Macro

Sub CreateFolder()
Dim src As String, fd_name As String, subfd_name As String
Dim rfl As String
src = Range("B1")
i = 2
j = 2
fd_name = Range("B" & i)


Do While Cells(i, 2) <> ""
MkDir src & "\" & fd_name
subfd_name = Range("C" & j)
Do While Cells(j, 3) <> ""
MkDir (src & "\" & fd_name & "\" & subfd_name)
j = j + 1
subfd_name = Range("C" & j)
i = i + 1
On Error GoTo 0
Loop
i = i + 1
j = j + 1
fd_name = Range("B" & i)
On Error GoTo 0
Loop
End Sub

** ตอนนี้ยังไม่สามารถทำงานได้ หากไม่มีช่องว่างระหว่าง Folder //ค้างไว้ก่อน ค่อยหาวิธีแก้