Получение значения ячейки из таблицы веб-сайта в заданную ячейку c

Question

Я пытаюсь получить значение ячейки (70,52) из ​​таблицы веб-сайта (https://finance.yahoo.com/quote/MNST/key-statistics?p=MNST) в заданную c ячейку Excel ("c5") в VBA Excel, но это не так верните мне значение в ячейку. не могли бы вы мне помочь, пожалуйста? вот мой код ниже, также я хотел бы выполнить то же действие для многих других ячеек. Заранее спасибо: D

Sub Element()

    Dim XMLPage As New MSXML2.XMLHTTP60
    Dim HTMLDocu As New MSHTML.HTMLDocument
    Dim tables As MSHTML.IHTMLElementCollection
    Dim table As MSHTML.IHTMLElement
    Dim HTMLDiv As MSHTML.IHTMLElement
    Dim tableSection As MSHTML.IHTMLElement
    Dim tableRow As MSHTML.IHTMLElement
    Dim tableCell As MSHTML.IHTMLElement
    Dim rowtext As String
    Dim rowNum As Long, rowColum As Integer

    XMLPage.Open "GET", "https://finance.yahoo.com/quote/" & Range("a1") & "/key-statistics?p=" & Range("a1")
    XMLPage.send

    HTMLDocu.body.innerHTML = XMLPage.responseText

    Set HTMLDiv = HTMLDocu.getElementById("Main")

    Set tables = HTMLDiv.getElementsByTagName("table")

    For Each table In tables

        For Each tableSection In table.Children

            For Each tableRow In tableSection.Children


                For Each tableCell In tableRow.Children

                'Debug.Print tableCell.innerText, tableCell.getAttribute("data-reactid"), tableCell.getAttribute("classname")

                If tableCell = "Fw(500) Ta(end) Pstart(10px) Miw(60px)" & tableCell = "237" Then

                    Range("c5") = tableCell.Value
                    Exit For
                End If

                Next tableCell


            Next tableRow

        Next tableSection

    Next table

End Sub