'You can use the worksheet function Transpose() to do it:

'pgc01, http://www.mrexcel.com/forum/showthread.php?p=1790513
Sub TestArray()
Dim v, v1

ReDim v(1 To 3, 1 To 4)

' some code

With Application
v1 = .Transpose(v)
ReDim Preserve v1(1 To 4, 1 To 5)
v = .Transpose(v1)
End With
End Sub