Array befüllen

Dim Accounts As Object
Set Accounts = MyFunc.tables.Item("ET_OUT")

ET_Out ist eine 2-dimensionale Tabelle (ca 5.000 Zeilen, 25 Spalten) und wird mittels Funktionsbaustein aus SAP gewonnen.
Jetzt möchte ich diese Tabelle ins Excel übertragen, mit

For i = 1 To Accounts.rowcount
Cells(i + 1, 1) = "'" & Accounts(i, 1")
Cells(i + 1, 2) = "'" & Accounts(i, 2")
next

gehts viel zu langsam. Ich wollte eigentlich das Ganze zuerst in ein Array einlesen und dann das kpl. Array in die Excel-Tabelle schreiben, aber

Range(Cells(1, 1), Cells(UBound(Accounts, 1) + 1, _
UBound(Accounts, 2) + 1)) = Accounts

funktioniert nicht.
wie kann ich das am schnellstens lösen?
Wer hat den richtigen Tipp?
Liebe Grüße Petra