Excel VBA Coding to scrape data, I am stuck

I would approach it with a function which takes in input two parameters:

• The Internet Explorer instance
• The label you want to scrape (e.g. NET SALES)

... and returns as String the desired value. Unfortunately I can't help much without having the real HTML and being able to test, so this is my blind attempt (get inspired, but don't expect to copy/paste and that the code will work):

Private Function getValueByLabel(ByVal ie As SHDocVw.InternetExplorer, ByVal label As String) As String
    Dim listOfRows As Object: Set listOfRows = ie.document.getElementsByTagName("tr")
    Dim cellsInsideARow As Object 
    For Each tRow In listOfRows
        Set cellsInsideARow = tRow.getElementsByTagName("td")
        If cellsInsideARow(2).getElementsByTagName("div")(1).innerText = label Then
            getValueByLabel = cellsInsideARow(3).getElementsByTagName("div")(1).innerText
            Exit Function
        End If
    Next tRow
    getValueByLabel = "N/A"
End Function

Basically the function above is:

• Getting the list of tr (rows) loaded into the document.body of the InternetExplorer instance you passed through
• For each of them, checking if the .innerText of the 3rd td (cell) element is equal to the label you want to scrape (in your case NET SALES)
• If it's the case, returns the function with the .innerText of the 4th td element
• Else, returns N/A

You would use the function by just calling it with the good parameters from your macro, for example:

Range("A1") = "NET SALES"
Range("B1") = getValueByLabel(IE, Range("A1").Value)

P.s. the reason why I did a function is that you can re-use the same code for any element being into the same table, by just passing the wished label (NET SALES rather than GROSS SALES etc.)