Visual Basic para Aplicaciones - Macro para web scraping en vba 2007

Para esta Macro:

Sub Busca_equipos()
Dim ieobj As Object
Dim htmlEle As MSHTML.IHTMLElement
Dim i As Integer

i = 1

Set ieobj = CreateObject("INTERNETEXPLORER.APPLICATION")
ieobj.Visible = True
ieobj.Navigate "http://cns2web/inventario/inventariolist.php?cmd=search&t=inventario&psearch=MEXGPARQUEDELTA-01&btnsubmit=Search+%28*%29&psearchtype=%3D"

Application.Wait Now + TimeValue("00:00:05")

For Each htmlEle In ieobj.document.getElementsByClassName("ewTableRow")(0).getElementsByTagName("tr") ====== Me marca esta linea
With ActiveSheet
.Range("A" & i).Value = htmlEle.Children(0).textContent
.Range("B" & i).Value = htmlEle.Children(1).textContent
.Range("C" & i).Value = htmlEle.Children(2).textContent
.Range("D" & i).Value = htmlEle.Children(3).textContent
.Range("E" & i).Value = htmlEle.Children(4).textContent
.Range("F" & i).Value = htmlEle.Children(5).textContent
.Range("G" & i).Value = htmlEle.Children(6).textContent
.Range("H" & i).Value = htmlEle.Children(7).textContent
.Range("I" & i).Value = htmlEle.Children(8).textContent
.Range("J" & i).Value = htmlEle.Children(9).textContent
.Range("K" & i).Value = htmlEle.Children(10).textContent
.Range("L" & i).Value = htmlEle.Children(11).textContent
.Range("M" & i).Value = htmlEle.Children(12).textContent
.Range("N" & i).Value = htmlEle.Children(13).textContent
End With

i = i + 1
Next htmlEle

End Sub



Me envia el siguiente error:

Se ha producido el error '-2147417848 (80010108)' en tiempo de ejecucion: Error de Automatización

¿Alguien puede ayudarme a ver donde esta el error?