vba to manipulate range

Hello,
I want to transpose and invert a source range composed from 6 rows and 10 columns.
There is an attached picture, that represent my goal.

i wrote this code in vba :

Sub att11()

Dim inRng As Range
Set inRng = Sheets("dQP").Range("_A")


Dim Xin As Variant
Dim Xout As Variant

Xin = inRng.Value

ReDim Xin(6, 10)
ReDim Xout(10, 6)

For i = 0 To UBound(Xin, 2)

For j = 0 To UBound(Xin, 1)

Xout(i, j) = Xin(UBound(Xin, 1) - j, i)

Next j
Next i

Debug.Print Xout(1, 1)

End Sub

AND,
i dont understand why Xout is empty.
when i call some value from within it, the result is always nothing.


Can someone help me please?
thanks a lot

suppose in sheet 1 data from A1 to B3 is as follows


A D
B E
C F

copy this data in sheet 2 also
first experiment with this sample data.
now run the macro "test"
If you want to recheck run first "undo" and then run "test"

I am sure you can modify the macro to suit you.

the macros are

Please Login or Register  to view this content.

Please Login or Register  to view this content.