Поменять местами столбец и строку и вывести новую матрицу

Sub Task2()
    Dim n, mat As Range, b, c, maksi
    Set mat = Range("algus")
    m = mat.CurrentRegion.Columns.Count + 2
    
    kust mat
    kust Range("algus").Cells(1, m)
    n = Val(InputBox("sisestage ridade ja veergude arv", , 5))
    b = Val(InputBox("Sisestage arvude ulemine piir", , -100))
    c = Val(InputBox("Sisestage arvude ulemine piir", , 100))
    ReDim a(1 To n, 1 To n), col(1 To n, 1 To n)
    genmat a(), n, b, c
    lehele a(), n, mat
    max a(), n, maksi
    Range("maks") = maksi
   
 End Sub
 
 
Sub genmat(a(), n, b, c)
Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int((c - b) * Rnd + b)
        Next j
    Next i
End Sub
Sub lehele(a(), n, mat)
    For i = 1 To n
        For j = 1 To n
            mat.Cells(i, j) = a(i, j)
        Next j
    Next i
End Sub
 
Sub kust(mat)
    Dim prk As Range
    Set prk = mat.CurrentRegion
    prk.Interior.ColorIndex = 0
    prk.ClearContents
End Sub
 
 
 
 
Sub max(a(), n, maksi)
 
 maksi = a(1, 1)
  For i = 1 To n
    For j = 1 To n
        
       
       
        If a(i, j) > maksi Then maksi = a(i, j)
        
        
    Next j
  Next i
 
End Sub