Создать макрос для рабочей книги MS Excel, позволяющий формировать значения в диапазонах ячеек

Sub main()
    Dim i&, j&, n&, m&, rng As Range
    Cells.ClearContents 'очищаем ячейки
    n = Val(InputBox("Размер матрицы", , 6))
    If n < 1 Then Exit Sub 'если задан не правильный параметр, то выходим из процедуры
    Set rng = ActiveCell 'вывод будет произведен в текущию ячейку
    'диапазон вывода можно задать через диалоговое окно Application.InputBox()
    'On Error Resume Next
    'Set rng = Application.InputBox("Укажите диапазон для вывода", , , Type:=8) 'ячейка для вывода
    'If rng Is Nothing Then Exit Sub 'нажата кнопка Отмена - диапазон не выбран
    'On Error GoTo 0
    ReDim arr&(1 To n, 1 To n)
    For i = 1 To n
        If i <= n / 2 Then m = i Else m = n - i + 1
        For j = m To n - m + 1
            arr(i, j) = 1
    Next j, i
    rng.Resize(n, n) = arr
End Sub