Массив данных передается таким образом:

Sub bulkTransfer()

   Dim xlApp As Excel.Application
   Dim xlBook As Workbook
   Dim xlSheet As Worksheet

   'Создаем новую книгу
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add

   'Создаем массив из 3 колонок и 100 строк
   Dim aryData(1 To 100, 1 To 3) As Variant
   Dim intCount As Integer

   For intCount = 1 To 100
      aryData(intCount, 1) = "ORD" & Format(r, "0000")
      aryData(intCount, 2) = Rnd() * 1000
      aryData(intCount, 3) = aryData(intCount, 2) * 0.7
   Next

   'Добавляем заголовки в первую строку 1
   Set xlSheet = xlBook.Worksheets(1)
   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(1,3)).Value = Array("Order ID", "Amount", "Tax")

   'Передаем массив в Excel, используя ячейку A2
   xlSheet.Range("A2").Resize(100, 3).Value = aryData
      
   'Запоминаем книгу и выходим из Excel
   xlBook.SaveAs "C:\My Documents\ArrayDump.xls"
   xlApp.Quit
   Set xlSheet = Nothing
   Set xlBook = Nothing
   Set xlApp = Nothing

End Sub