Сформировать матрицу особым образом

Sub kk()
n = InputBox("Введите порядок матрицы", , 6)
 
y = 1: x = 1
 
way = 1
   For yStart = 1 To n
        For Shag = 1 To yStart
            num = num + 1
            Cells(y, x) = num
            x = x - way
            y = y + way
        Next
        way = -way
        If way = 1 Then y = y + 1 Else x = x + 1
    Next
 
End Sub

Sub kk()
Cells.ClearContents
n = InputBox("Введите порядок матрицы", , 6)
y = 1: x = 1
 
way = 1
For yStart = 1 To n
  For Shag = 1 To yStart
    num = num + 1
    Cells(y, x) = num
    x = x - way
    y = y + way
  Next
  way = -way
  If way = 1 Then y = y + 1 Else x = x + 1
Next
 
If way = 1 Then x = n: y = 2 Else y = n: x = 2
 
For yStart = 1 To n - 1
  For Shag = n - yStart To 1 Step -1
    num = num + 1
    Cells(y, x) = num
    x = x - way
    y = y + way
  Next
  way = -way
  If way = 1 Then y = y + 2: x = n Else x = x + 2: y = n
Next
 
End Sub

Dim n&