Innertext vba优化

我一直在使用下面的vba提取数据，大多数日子都没问题。 不过，我今天刚遇到一个错误。 任何人都可以请帮助指出我在正确的方向来提高VBA？ 谢谢

Sub ExtractCP() Dim ie As Object Sheets("Sheet2").Range("A2:AZ3000").Clear Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = False .Navigate "http://www.yahoo.com/" Do Until .ReadyState = 4: DoEvents: Loop x = .Document.body.innertext x = Split(x, Chr(13)) Application.Wait (Now + TimeValue("00:00:03")) Sheet2.Cells(1, 1).Resize(UBound(x)) = Application.Transpose(x) .Quit End With End Sub