Двумерный массив в VBA

Sub test()
    
    Dim n As Integer
    Dim k As Integer
    Dim arr() As Variant
    n = 5
    
    If n >= 2 Then
        ReDim arr(1 To n, 1 To n)
        k = n
        For i = 1 To n
            For j = 1 To n
                arr(i, j) = k
            Next j
            k = k - 1
        Next i
    Else
        Exit Sub
    End If
 
   'Вывод на лист
  Range(Range("A1"), Range("A1").Offset(n - 1, n - 1)) = arr
    
End Sub