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