VBA 2 Dimensional Arrays

In fact I would not use any REDIM, nor a loop for transferring data from sheet to array:

dim arOne()
arOne = range("A2:F1000")

or even

arOne = range("A2").CurrentRegion

and that’s it, your array is filled much faster then with a loop, no redim.

References: https://stackoverflow.com/questions/5252109/vba-excel-2-dimensional-arrays