web scraping

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
   Set doc = IE.document
   
   Dim sdd As String
   sdd = Trim(doc.getelementsbytagname("tr")(1).innerText)
   
   MsgBox sdd
   
   End If

and I will attach the html code of the site...

pastedImage.png