Option Explicit
Sub test()
Dim a As Variant
With Sheets("bd").Range("A5").CurrentRegion
a = Application.Index(.Value, Evaluate("row(1:" & _
.Rows.Count & ")"), Array(2, 1, 5, 9, 8, 6, 7, 12))
End With
Dim T(1 To UBound(a, 1), 1 To UBound(a, 2))
End Sub