How to put range into redimed array?

run your 'test' macro in attached file.

Sub test()
Dim a() As Variant
a = Sheet1.Range("A2:E8").Value2
[H2] = a(1, 1): [I2] = a(6, 5): [J2] = a(7, 5)
End Sub