Сформировать из двумерного массива одномерный в форме спирали

Sub SpiraleArray()
    Dim I%, R%, C% 'ñ÷¸ò÷èê è òåêóùèå êîîðäèíàòû â ìàññèâå
    Dim cR%, cC% 'ê-âî ñòðîê è ñòîëáöîâ ìàññèâà
    Dim dR%, dC 'ïðèðàùåíèÿ ïî ñòðîêàì è ñòîëáöàì ñ ó÷¸òîì ê-âà ïîâîðîòîâ
    Dim P% 'ñ÷¸ò÷èê ïîâîðîòîâ
    Dim a2(), b1()
    Cells.ClearContents 'î÷èñòêà ïîëÿ
     
    cR = InputBox("Ñòðîê?") 'çàäà¸ì ðàçìåðû
    cC = InputBox("Ñòîëáöîâ?") 'ìàññèâà
    ReDim a2(1 To cR, 1 To cC)
    ReDim b1(1 To cR * cC)
    'çàïîëíèòü äâóõìåðíûé ìàññèâ
    For R = 1 To cR
        For C = 1 To cC
            a2(R, C) = Int(100 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(cR, cC) = a2
    'çàïîëíèòü îäíîìåðíûé ìàññèâ ïî ñïèðàëè
    R = 1: C = 1 'íà÷àëüíûå êîîðäèíàòû
    dC = 1: dR = 0 'íà÷àëüíûå ïðèðàùåíèÿ
    For I = 1 To cR * cC 'öèêë ïî âñåì ÿ÷åéêàì ìàññèâà
        b1(I) = a2(R, C)
        a2(R, C) = 0 'äëÿ êîíòðîëÿ çàíåñåíèÿ â ìàññèâ b1
        If R + dR > cR Or R + dR < 1 Or C + dC > cC Or C + dC < 1 Then
            P = P + 1 'ñëåäóþùèì õîäîì âûïàäàåì èç ìàññèâà->ïîâîðà÷èâàåì
        ElseIf a2(R + dR, C + dC) = 0 Then
            P = P + 1 'ñëåäóþùèì õîäîì ïîïàäàåì â îáíóëåííîå çíà÷åíèå->ïîâîðà÷èâàåì
        End If
        dC = (2 - (P + 1) Mod 4) Mod 2 'ïåðåñ÷èòûâàåì ïðèðàùåíèÿ
        dR = (2 - P Mod 4) Mod 2 'ñ ó÷¸òîì ê-âà ïîâîðîòîâ
        C = C + dC 'íîâûå
        R = R + dR 'êîîðäèíàòû
    Next I
    Cells(cR + 2, 1).Resize(1, UBound(b1)) = b1
End Sub