Дана квадратная матрица. Произвести транспонирование (переворот) матрицы относительно ее главной диагонали

Sub Макрос1()
Dim a As Integer, b As Integer, i As Integer, j As Integer
a = Int(InputBox("Количество строк:"))
b = Int(InputBox("Количество столбцов:"))
ReDim Ar(1 To a, 1 To b) As Integer
For i = 1 To a
    For j = 1 To b
        Cells(i, j) = Int(100 * Rnd + (-100) * Rnd)
    Next
Next

Sub Макрос1()
Dim S As Integer, i As Integer, j As Integer, temp As Integer
Const a = 1
b = Int(InputBox("Количество столбцов:"))
ReDim Ar(1 To a, 1 To b) As Integer
ReDim Br(1 To a, 1 To b) As Integer
For i = 1 To a
    For j = 1 To b
        Ar(i, j) = Int(100 * Rnd + (-100) * Rnd)
        Cells(i, j) = Ar(i, j)
        Br(i, j) = Ar(i, j)
    Next
Next
For i = 1 To a
        temp = Br(i, 1)
        For p = 1 To b - 1
            Br(i, p) = Br(i, p + 1)
        Next
        Br(i, p) = temp
    Next
For i = 1 To a
    For j = 1 To b
     Cells(i + a + 2, j) = Br(i, j)
     Next
Next
End Sub