Заполнить матрицу множеством натуральных чисел по спирали против часовой стрелки

Sub Spiral()
   Dim N As Byte, i As Byte, m As Byte
   Dim num As Integer
   Dim n_spir As Integer
   Dim r As Range
   
   Cells.ClearContents
   Cells.Borders.LineStyle = xlNone
   Set r = Range("B2")
   
   num = 1
   N = Val(InputBox("Введи N:", , 10))
   If N = 0 Then Exit Sub
   
   ReDim a(1 To N, 1 To N) As Integer
 
   For n_spir = 0 To N \ 2 - 1
                   m = N - 1 - 2 * n_spir
      For i = 1 To m
         a(n_spir + 1, i + n_spir) = num: num = num + 1 'вправо
      Next i
      
      For i = 1 To m
         a(i + n_spir, N - n_spir) = num: num = num + 1   'вниз
      Next i
      
      For i = 1 To m
         a(N - n_spir, N - n_spir - i + 1) = num: num = num + 1     'влево
      Next i
      
      For i = 1 To m
         a(N - n_spir - i + 1, n_spir + 1) = num: num = num + 1  'вверх
      Next i
   Next n_spir
   If N Mod 2 = 1 Then a(N \ 2 + 1, N \ 2 + 1) = N ^ 2
   
   r.Resize(N, N) = a:   формат r, N
End Sub
 
Sub формат(r As Range, N As Byte)
   Dim i As Byte, n_spir As Byte
   
   If N Mod 2 = 0 Then n_spir = N \ 2 Else n_spir = N \ 2 + 1
   For i = 0 To n_spir - 1
      With r.Offset(i, i).Resize(N - 2 * i, N - 2 * i)
         .Borders(xlEdgeLeft).Weight = xlMedium
         .Borders(xlEdgeTop).Weight = xlMedium
         .Borders(xlEdgeBottom).Weight = xlMedium
         .Borders(xlEdgeRight).Weight = xlMedium
      End With
      With r.Offset(i, i)
         .Borders(xlEdgeBottom).Weight = xlMedium
         If i >= 1 Then .Borders(xlEdgeLeft).LineStyle = xlNone
      End With
   Next i
End Sub

Sub Spiral_Fill()
Dim N As Integer, i As Integer, j As Integer, iNumOfC As Integer, iIter As Integer
iIter = 1
With Selection
N = .Rows.Count
For iNumOfC = 1 To Int(N / 2 + 0.5)
    'Ëåâàÿ ñòîðîíà
    j = iNumOfC
    For i = iNumOfC To N - (iNumOfC - 1)
        .Cells(i, j) = iIter
        iIter = iIter + 1
    Next
    'Íèæíÿÿ ñòîðîíà
    i = N - (iNumOfC - 1)
    For j = iNumOfC + 1 To N - (iNumOfC - 1)
        .Cells(i, j) = iIter
        iIter = iIter + 1
    Next
    'Ïðàâàÿ ñòîðîíà
    j = N - (iNumOfC - 1)
    For i = N - iNumOfC To iNumOfC Step -1
        .Cells(i, j) = iIter
        iIter = iIter + 1
    Next
    'Âåðõíÿÿ ñòîðîíà
    i = iNumOfC
    For j = N - iNumOfC To i + 1 Step -1
        .Cells(i, j) = iIter
        iIter = iIter + 1
    Next
Next
End With
End Sub

Sub Spiral_Fill()
Dim N As Integer, i As Integer, m_l as integer, m_t as integer, m_b as integer, m_r as integer, Iter As Integer
Iter = 1
 
N = Val(InputBox("Введи N:", , 10))
m_l=1
m_t=1
m_r=N
m_b=N
 
If N = 0 Then Exit Sub
 
ReDim a(1 To N, 1 To N) As Integer
 
do while iter<N*N 
For i = m_t To m_b
'Левая сторона
A(m_l,i)=iter
iter=iter+1
Next i 
m_l=m_l+1
For i = m_l To m_r
'нижняя сторона
A(i,m_b)=iter
iter=iter+1
Next i 
m_b=m_b-1
For i = m_b To m_t step -1
'правая сторона
A(m_r,i)=iter
iter=iter+1
Next i 
m_r=m_r-1
For i = m_r To m_l step -1
'Верхняя сторона
A(i,m_t)=iter
iter=iter+1
Next i 
m_t=m_t+1
loop
' тут вывод вставь куда тебе надо из массива А
End Sub