Yardım Webten Veri Çekmek

Sub veri_59_web()
Set IE = CreateObject("InternetExplorer.Application")
Range("A2:C2").ClearContents
IE.Navigate "https://www.haremaltin.com/"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents: Loop
Set t = IE.Document.GetElementbyId("table1").all(0)
For i = 0 To 1 't.Rows.Length - 1
    For j = 0 To t.Rows(i).Cells.Length - 1
        Cells(2, j + 1) = t.Rows(i).Cells(j).innertext
    Next
Next
Set t = Nothing
IE.Quit
MsgBox "bitti"
End Sub

Sub veri_59_web2()
Set IE = CreateObject("InternetExplorer.Application")
Range("A2:C2").ClearContents
IE.Navigate "https://www.haremaltin.com/"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents: Loop
Set t = IE.Document.GetElementbyId("table1").all(0)
    For j = 0 To t.Rows(1).Cells.Length - 1
        Cells(2, j + 1) = t.Rows(1).Cells(j).innertext
    Next
Set t = Nothing
IE.Quit
MsgBox "bitti"
End Sub