Excel VBA Runtime ошибка «1004» не может найти решение

Question

У меня были проблемы с приведенным ниже модулем, и независимо от того, где я смотрю, например, stackoverflow или где-либо еще, я не могу найти решение.Вот код ниже:

Sub Test()
Dim IE As Object
Dim HTML As HTMLDocument
Sheets("Sheet1").Select
Range("D6:D1000") = "" ' erase previous data
Range("D6:D1000").Select

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .navigate "https://www.example.com"
    'Set HTML = IE.document
    Do Until .ReadyState = 4: DoEvents: Loop

        compName = .document.getElementsByClassName("title")
        compName = Replace(compName, Chr(10), Chr(13))
        compName = Split(compName, Chr(13))
        Range("D6").Resize(UBound(compName)) = Application.Transpose(compName)

        .Quit
    End With

End Sub

Я получаю ошибку времени выполнения ('1004' Ошибка приложения или объекта) в следующей строке

Range("D6").Resize(UBound(compName)) = Application.Transpose(compName)

У меня было этоЛиния работала вчера, однако я внес несколько изменений сегодня, и теперь эта линия не будет работать.Кто-нибудь может определить решение?