Получить квадратную матрицу порядка n - VBA (49000)

Option Explicit
 
Sub Симметрия()
Dim max%, Rng As Range, cel As Range
Set Rng = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
max = IIf(Rng.Column > Rng.Row, Rng.Column, Rng.Row)
For Each cel In Range([A1], Rng).Cells
    If IsNumeric(cel.Value) And cel <> vbNullString Then
        With Cells(max - cel.Row + 1, max - cel.Column + 1) 'это
            If Not IsNumeric(.Value) Or .Value = vbNullString Then 'все
                .Value = cel
                .Font.Color = vbBlue 'для красоты
            End If
        End With
    End If
Next
End Sub