Invert Array

Dim PData(),Out()

Sub InvertA(PData, Out)
Rs = UBound(PData)
cs = UBound(PData, 2)

For cdx = 2 To cs
Rowx = Rowx + 1
For rdx = 1 To Rs
Out(Rowx, rdx) = PData(rdx, cdx)
Next rdx
Next cdx


End Sub