Вставка элементов строки массива на лист Excel

For i = 1 To n
   ActiveSheet.Cells(i, 1).Value = data(2, i): i = i + 1
Next

Sub Insert2RowToExcel()
    Const n = 50000
    Dim i As Long, j As Long, data(1 To 3, 1 To n) As Variant, t As Double
    'Çàïîëÿåì ìàññèâ ïðèìåðíûìè äàííûìè.
    For i = 1 To 3
        For j = 1 To n
            data(i, j) = (i - 1) * n + j
        Next j
    Next i
    'Èñïûòûâàåì ïåðâûé ñïîñîá çàíåñåíèÿ äàííûõ - ÷åðåç öèêë.
    t = Timer
    For i = 1 To n
        Cells(i, 1).Value = data(2, i)
    Next
    Debug.Print "Âðåìåíè ïîòðà÷åíî íà êîïèðîâàíèå â öèêëå: " & Format(Timer - t, "0.00")
    Cells.Clear
    'Èñïûòûâàåì âòîðîé ñïîñîá çàíåñåíèÿ äàííûõ - áåç öèêëà.
    t = Timer
    Cells(1).Resize(n, 2).Value = Application.Transpose(data)
    Cells(1).Resize(n).Value = Cells(1, 2).Resize(n).Value
    Cells(1, 2).Resize(n).Value = Empty
    Debug.Print "Âðåìåíè ïîòðà÷åíî íà êîïèðîâàíèå áåç öèêëà: " & Format(Timer - t, "0.00")
End Sub

Sub Insert2RowToExcel()
    Const n = 50000
    Dim i As Long, j As Long, data(1 To 3, 1 To n), temp(1 To n) As Variant, t As Double
    'Заполяем массив примерными данными.
    For i = 1 To 3
        For j = 1 To n
            data(i, j) = (i - 1) * n + j
        Next j
    Next i
    '№1. Занесение данных через цикл, перебор ячеек.
    t = Timer
    For i = 1 To n
        Cells(i, 1).Value = data(2, i)
    Next
    Cells.Clear
    MsgBox "Времени потрачено на №1: " & Format(Timer - t, "0.00000")
    '№2. Занесение данных без цикла, через частичное копирование массива.
    t = Timer
    Cells(1).Resize(n, 2).Value = Application.Transpose(data)
    Cells(1).Resize(n).Value = Cells(1, 2).Resize(n).Value
    Cells(1, 2).Resize(n).Value = Empty
    Cells.Clear
    MsgBox "Времени потрачено на №2: " & Format(Timer - t, "0.00000")
    '№3. Занесение данных через цикл, использование промежуточного массива.
    t = Timer
    For i = 1 To n
     temp(i) = data(2, i)
    Next
    ActiveSheet.Range("A1").Resize(n) = Application.Transpose(data)
    Cells.Clear
    MsgBox "Времени потрачено на №3: " & Format(Timer - t, "0.00000")
End Sub

Sub test()
  Dim a(1 To 3, 1 To 4), i&, j&
  For i = 1 To UBound(a)
    For j = 1 To UBound(a, 2)
      a(i, j) = (i - 1) * 10 + j
  Next j, i
  [a1].Resize(, UBound(a, 2)).Value = Application.Index(a, 2, 0)
End Sub

ActiveSheet.Range("A1").Resize(n) = Application.Transpose(temp)

Dim temp(1 To n, 1 To 1) As Variant
For i = 1 To n
   temp(i, 1) = data(2, i)
Next
ActiveSheet.Range("A1").Resize(n) = temp

Dim temp As Variant
temp = Application.Index(data, 2, 0)
[a1].Resize(UBound(data, 2)).Value = Application.Transpose(temp)