Oi eu estou importando uma tabela inteira de um site para excel string:

Dim fST As String
fST = Doc.getElementsByTagName("table")(0).innerText

depois disso eu gostaria de dividir a tabela dentro de células do Excel e a divisão a ser feito usando o<td> tags da tabela html, ou pelo menos essa é a opção para a qual eu acho que pode ser feito para que a tabela importada seja a mesma dentro do excel uma vez que ela for importada, cada valor estará dentro da célula individual.

Deixe-me saber obrigado.

Aqui está o conde Whole que estou usando:

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Row = Range("URL").Row And _
 Target.Column = Range("URL").Column Then
    Dim IE As New InternetExplorer
    IE.Visible = True
    IE.navigate Application.ActiveSheet.Range("URL")
    Do
        DoEvents
        Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document

    Dim tbl, trs, tr, tds, td, r, c

    Set tbl = Doc.getElementsByTagName("table")(0)
    Set trs = tbl.getElementsByTagName("tr")

    For r = 1 To trs.Count
        Set tds = trs(r).getElementsByTagName("td")
        For c = 1 To tds.Count
            ActiveSheet.Cells(r, c).Value = tds(c).innerText
        Next c
    Next r
    IE.Quit
 End If
End Sub

Mas diz erro: Objeto não suporta esta propriedade ou método na seguinte linha: Para r = 1 Para trs.Count