Sub test_tranp1()

Dim r1 As Range
Dim arr1
Dim arr2()

arr1 = Range("a1:b8")

'ReDim arr2(UBound(Selection, 2), UBound(Selection, 1))

ReDim arr2(LBound(arr1, 2) To UBound(arr1, 2), LBound(arr1, 1) To UBound(arr1, 1))
For i = LBound(arr1) To UBound(arr1)
   For j = LBound(arr1, 2) To UBound(arr1, 2)
       arr2(j, i) = arr1(i, j)
   Next
Next

Range("d20").Resize(UBound(arr1, 2), UBound(arr1, 1)) = arr2

End Sub