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

Sub test()
Dim r As Range, j As Integer, k As Integer
Dim dest As Range
Worksheets("sheet1").Activate
j = Range("A1").End(xlDown).Row
Set r = Range("A1").End(xlToRight).Offset(0, 1)
r.Value = 1
Set r = Range(r, Cells(j, r.Column))
r.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _
        Step:=1, Trend:=False
Set r = Range("A1").CurrentRegion

Set dest = Range("d9")
r.Copy dest
Set r = dest.CurrentRegion
'MsgBox r.Address
k = dest.End(xlToRight).Column
r.Sort key1:=Cells(dest.Row, k), Order1:=xlDescending, header:=xlNo
r.Copy
dest.End(xlDown).Offset(3, 0).PasteSpecial Transpose:=True
dest.End(xlDown).End(xlDown).End(xlDown).EntireRow.Delete
dest.Select
End Sub

Sub undo()
Worksheets("sheet1").Cells.Clear
Worksheets("sheet2").UsedRange.Copy Worksheets("sheet1").Range("A1")
End Sub