Transposing arrays to the worksheet

I am using the code below to move data from a two dimensional array to the worksheet – I would however like to only transpose certain elements within the array – so let’s say the array is 7 by 12 elements - is there a way to only transpose the elements 3,2 to 3,9 (my arrays are option base zero).
If this cannot be done – what is the best way to create a new array that only contain the elements 3,2 to 3,9 – that way I can still use the .transpose function. My arrays are quite large and I don’t want to use a loop – as it is too slow.

Code:

---


Astr = Split(Cells(1, ColFirst).Address, "$")(1) & LastRow + 1 & ":" & _
                Split(Cells(1, ColFirst + UBound(Pnames) - 1).Address, "$")(1) & _
                LastRow + 1 + UBound(WetChem, 2) - 1


 ActiveSheet.Range(Astr).Value = Application.WorksheetFunction.Transpose(WetChem)

---

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Hi Rasm,

You mean something like this

Code:

---

Sub kTest()
   
    Dim Ary1, Ary2
   
    Ary1 = [a1:e10]
   
    'picks data from 2nd,3rd and 4th column of 3rd row from array Ary1
    Ary2 = Application.Index(Ary1, 3, [{2,3,4}]) 'Array(2,3,4)
   
    [g1].Resize(, UBound(Ary2, 1)) = Ary2
   
End Sub

---