refer part of a multi dimension array

Perhaps you could use Index, here's a very simple example.

Dim x
Dim y
Dim z

    x = Range("A1:D15")
    
    y = Application.Index(x, 1)
        
    z = Application.Index(x, , 1)

y will return a 1-dimensional array with the values from A1:D1.

z will return a 2-dimensional array with the values from A1:A15.