Sub test1()
Dim x: x = Range("A1:E20").Value
'извлекаем только один столбец (3-й)
Range("M1").Resize(UBound(x)).Value = Application.Index(x, 0, 3)
End Sub

Sub test2()
Dim x: x = Range("A1:E20").Value
'извлекаем только одну строку (10-ю)
Range("G10").Resize(, UBound(x, 2)).Value = Application.Index(x, 10, 0)
'или часть строки (столбцы 3, 4, 5)
Range("G11").Resize(, 3).Value = Application.Index(x, 10, [{3,4,5}])
End Sub

Sub test3()
Dim x, y()
x = Range("A1:E20").Value
ReDim y(1 To 2, 1 To 4)
'извлекаем строки с 3 по 8, столбцы со 2 по 4
With Application
 y() = .Index(x, [Row(3:8)], .Transpose([Row(2:4)]))
End With
Range("G1").Resize(UBound(y), UBound(y, 2)).Value = y()
End Sub