Копирование строки массива в другой массив

Sub AddingArrayRowsToArray()
    'Создаем два массива массивов: целевой массив и массив-источник. Заполняем массивы.
    Dim arrayOfSrcRows() As Variant, arrayOfDesRows() As Variant
    ReDim arrayOfSrcRows(1 To 3) As Variant
    arrayOfSrcRows(1) = Array("Источник - строка 1, ячейка 1", "Источник - строка 1, ячейка 2", "Источник - строка 1, ячейка 3")
    arrayOfSrcRows(2) = Array("Источник - строка 2, ячейка 1", "Источник - строка 2, ячейка 2", "Источник - строка 2, ячейка 3")
    arrayOfSrcRows(3) = Array("Источник - строка 3, ячейка 1", "Источник - строка 3, ячейка 2", "Источник - строка 3, ячейка 3")
    ReDim arrayOfDesRows(1 To 3) As Variant
    arrayOfDesRows(1) = Array("Выходной - строка 1, ячейка 1", "Выходной - строка 1, ячейка 2", "Выходной - строка 1, ячейка 3")
    arrayOfDesRows(2) = Array("Выходной - строка 2, ячейка 1", "Выходной - строка 2, ячейка 2", "Выходной - строка 2, ячейка 3")
    arrayOfDesRows(3) = Array("Выходной - строка 3, ячейка 1", "Выходной - строка 3, ячейка 2", "Выходной - строка 3, ячейка 3")
    'Выводим целевой массив на лист.
    Cells(1).Resize(3, 3) = Application.Index(arrayOfDesRows, 0, 0)
    Range("A:C").EntireColumn.AutoFit
    'Теперь "засовываем", как вы выразились, в массив еще 2 строки из массива-источника.
    'Допустим, нам нужны 1-я и 3-я строки массива-источника.
    ReDim Preserve arrayOfDesRows(1 To 3 + 2) As Variant
    arrayOfDesRows(3 + 1) = arrayOfSrcRows(1)
    arrayOfDesRows(3 + 2) = arrayOfSrcRows(3)
    'Выводим обновленный массив на лист.
    Cells(5, 1) = "Массив после обновления:"
    Cells(6, 1).Resize(3 + 2, 3) = Application.Index(arrayOfDesRows, 0, 0)
End Sub

Sub tt()
Dim col As New Collection, x&
 
col.Add 11, "1"
col.Add 22, "2"
col.Add 33, "3"
 
For x = 1 To 3
MsgBox col(CStr(x))
Next
End Sub