Транспонирование матрицы рядом с исходной

Option Explicit
Sub Transp()
Dim a() As Integer
Dim b() As Integer
Dim str As String
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
n = CInt(InputBox("Введите кол-во строк в массиве"))
m = CInt(InputBox("Введите кол-во столбцов в массиве"))
ReDim a(1 To n, 1 To m)
ReDim b(1 To m, 1 To n)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Введите значения массива А(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
b(j, i) = a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
str = str & b(i, j) & " "
Next j
str = str & vbCr
Next i
MsgBox "Transponir matrix" & vbCr & str, , "Matrix"
 
End Sub

Sub massiv()
    Dim A() As Integer
    Dim i As Integer, j As Integer
    Dim n As Single, m As Single
    n = InputBox("Введите кол-во строк массива")
    m = InputBox("Введите кол-во столбцов массива")
    ReDim A(1 To n, 1 To m)
    For i = 1 To n
        For j = 1 To m
            A(i, j) = InputBox("Введите значения массива  А ")
        Next j
    Next i
 
    Cells(1, 1).Resize(n, m).Value = A
    Cells(1, 2 + m).Resize(m, n).Value = Application.Transpose(A)
End Sub

Sub massiv()
    Dim A() As Integer
    Dim i As Integer, j As Integer
    Dim n As Single, m As Single
    Dim s As Integer
    s = 0
    n = 2 'строки
    m = 5 'столбцы
    ReDim A(1 To n, 1 To m)
    For i = 1 To n
      For j = 1 To m
        s = s + 1
        A(i, j) = s
      Next j
    Next i
 
    Cells(1, 1).Resize(n, m).Value = A 'fun1
    Cells(1, 2 + m).Resize(m, n).Value = Application.Transpose(A) 'fun2
End Sub