web scraping

[midoan]

Hello,
I need to do a macro when I type the site in a cell
it extract a table from that site to the rest of the row
and I need to do it repeatedly to the rest of the rows
till now I can only do it to one row only and it is msgbox

This is the code I used

If Target.Row = Range("cellone").Row And Target.Column = Range("cellone").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "" & Range("cellone").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument

and I will attach the html code of the site​

​

 

[strooman]

What is the address of the website?
What values/information/data do you want to extract from that website?

 

[midoan]

the site is local so you wont be able to access it
I want to extract a table with html code Id <tr> the second one and the variables in it have the id <tr>