In Sheet1 I have 10 columns of data.
I want to extract only the second column, so have used this:
Dim TotalArray() As Variant
TotalArray() = Sheet1.Cells(1, 1).CurrentRegion.Value
Dim NewArray() As Variant
NewArray = Application.Index(TotalArray(), 0, 2)...