Формирование двумерных массивов. Сформировать матрицы произвольной размерности на рабочем листе Excel в BVA - VBA

Sub www()
    Dim i As Long, j As Long, n As Long
    n = 6
    For i = 1 To n
    For j = 1 To n
        If j = i Or j = n + 1 - i Then Cells(i, j) = i Else Cells(i, j) = 0
    Next j, i
End Sub