Hola, estoy importando una tabla completa de un sitio web para sobresalir la cadena:

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

después de eso me gustaría dividir la tabla dentro de las celdas de Excel y la división que se hará usando el<td> Etiquetas de la tabla html, o al menos esta es la opción para la que creo que se puede hacer para que la tabla importada sea la misma dentro de Excel una vez que se importa, cada valor estará dentro de cada celda.

Déjame saber gracias.

Aquí está el conde entero que estoy 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

Pero dice error: el objeto no admite esta propiedad o método en la línea siguiente: Para r = 1 A trs.Count