Сформировать квадратную матрицу порядка n по заданному образцу

Sub Matrix()
Dim n, i As Integer
n = Range("Лист1!A1")
For i = 0 To 1: Range(Split("Лист2!A1:$e$8 $B$2:$d$7 $c$2:$c$7 ")(i)) = 1 - i: Next
 
End Sub

Public Sub task1()
    Const i& = 3
    Const n& = 8
    Dim j&, x#, Arr(0 To n, 0 To n) As Double
    x = 2
    For j = 0 To n
        Arr(0, j) = x ^ j: Arr(j, 0) = Arr(0, j)
        Arr(j, n) = x ^ (n - j): Arr(n, j) = Arr(j, n)
    Next
    ThisWorkbook.ActiveSheet.Range(Cells(i, i), Cells(i + n, i + n)) = Application.Transpose(Arr)
End Sub

Function Mat()
 
?????????
 
Dim j&, x#, Arr(0 To n, 0 To n) As Double
Range("a1").Value
x = 2
For j = 0 To n
Arr(0, j) = x ^ j: Arr(j, 0) = Arr(0, j)
Arr(j, n) = x ^ (n - j): Arr(n, j) = Arr(j, n)
Next
ThisWorkbook.ActiveSheet.Range(Cells(i, i), Cells(i + n, i + n)) = Application.Transpose(Arr)
 
 
End Function

dim n&

Range("a1").Value

n=ThisWorkbook.ActiveSheet.Range("A1")

Function Mat()
Const i& = 3
Dim n&
Dim j&, x#, Arr(0 To n, 0 To n) As Double
n = ThisWorkbook.ActiveSheet.Range("A1")
x = 2
For j = 0 To n
Arr(0, j) = x ^ j: Arr(j, 0) = Arr(0, j)
Arr(j, n) = x ^ (n - j): Arr(n, j) = Arr(j, n)
Next
ThisWorkbook.ActiveSheet.Range(Cells(i, i), Cells(i + n, i + n)) = Application.Transpose(Arr)
End Function