Увеличить скорость импорта таблицы IE

У меня есть этот код, который извлекает данные из уже открытого документа Internet Explorer. Проблема в том, что таблица огромна (30x5000), и перемещение всех данных на лист с использованием циклов For занимает более 1 минуты. Я бы хотел, чтобы эта передача данных происходила намного быстрее, если это возможно. Можно ли просто скопировать / вставить всю страницу на лист? Какие-нибудь другие решения?

 Set doc = ie.Document
 Set hTable = doc.GetElementsByTagName("table")

 For Each tb In hTable

    Set hBody = tb.GetElementsByTagName("tbody")
    For Each bb In hBody

        Set hTR = bb.GetElementsByTagName("tr")
        For Each tr In hTR

             Set hTD = tr.GetElementsByTagName("td")
             y = 1 ' Resets back to column A
             For Each td In hTD
               ws.Cells(z, y).Value = td.innertext
               y = y + 1
             Next td
             DoEvents
             z = z + 1
        Next tr
        Exit For
    Next bb
Exit For
Next tb