Sub io3()

     Dim SuperMassiv(1 To 4, 1 To 2)
     Dim arrCol1, arrCol2
     Dim arrRow3, arrRow4
     Dim i, j
      
     SuperMassiv(1, 1) = 1: SuperMassiv(1, 2) = 10
     SuperMassiv(2, 1) = 2: SuperMassiv(2, 2) = 20
     SuperMassiv(3, 1) = 3: SuperMassiv(3, 2) = 30
     SuperMassiv(4, 1) = 4: SuperMassiv(4, 2) = 40
     
     arrCol1 = WorksheetFunction.Index(SuperMassiv, 0, 1)
     arrCol2 = WorksheetFunction.Index(SuperMassiv, 0, 2)
     arrRow3 = WorksheetFunction.Index(SuperMassiv, 3)
     arrRow4 = WorksheetFunction.Index(SuperMassiv, 4)
         
End Sub

Sub qq()
     Dim arr, a1(), a2(), a3()
     Dim i&, j&, t!
     arr = Range("A1").CurrentRegion.Value
     t = Timer
     ReDim a1(1 To UBound(arr))
     For i = 1 To UBound(arr)
         a1(i) = Application.Index(arr, i, 0)
     Next
     Debug.Print "a1  " & Format(Timer - t, "0.0000")
     t = Timer

     ReDim a2(1 To UBound(arr))
     For i = 1 To UBound(arr)
         ReDim a3(1 To UBound(arr, 2))
         For j = 1 To UBound(arr, 2)
             a3(j) = arr(i, j)
         Next
         a2(i) = a3

     Next
     Debug.Print "a2  " & Format(Timer - t, "0.0000")

End Sub

Public Declare Sub CopyMemory Lib _
     "kernel32" Alias "RtlMoveMemory" _
     (Destination As Any, Source As Any, _
     ByVal Length As Long)
    
Sub testCopyMemory()
Dim i&
Dim arFrom1#(1000), arFrom2#(1000), arTo#(1000, 1 To 2) ' обьявили 3 массива _
                    2 откуда будем копировать (одномерные) _
                    1 куда будем копировать (двумерный)
Randomize ' заполним случайными числами с запятой (мы ведь массивы дабл обьявили)
     For i = LBound(arFrom1) To UBound(arFrom1)
         arFrom1(i) = Rnd
         arFrom2(i) = Rnd
     Next
'выведем на лист для последующей проверки
[a2].Resize(UBound(arFrom1)) = Application.Transpose(arFrom1)
[b2].Resize(UBound(arFrom2)) = Application.Transpose(arFrom2)

'А теперь копируем два одномерных массива в один двумерный
'           Куда,     Откуда,       Длинна (в байтах)
CopyMemory arTo(0, 1), arFrom1(0), 1000 * 8
CopyMemory arTo(0, 2), arFrom2(0), 1000 * 8
'Так как у нас даблы, то один дабл весит 8 байт. Соответственно умножаем на количество элементов.

'и выводим на лист для сверки :-)
[d2].Resize(UBound(arTo), 2) = arTo
End Sub