Very Urgent My IE is very slow to import data to excel (one http multi page)

i have coding to import data from web in web address
i have 3 page
first page = login ,and put pasword
second page to page menu
third page is page for import data to excel
my coding is sucses but is very slow ,
i am using sendkeys to move from one page to second page,and third page
please help me this is my coding

Option Explicit
Const USER_LOGN As String = "daboho"
Const PASS_WORD As String = "xxxxxxxx"
Const HTML_USER As String = "user_id"
Const HTML_PASS As String = "hashpassw"
Const HOME_ADRS As String = "http://"             'first page
Dim IE As Object

Sub Import3()
  Dim link As String
  Dim html As HTMLDocument
  Dim HOME_MAIN As String, LLNG_BARU As String
  Dim tablerow As IHTMLElementCollection
  HOME_MAIN = Split(HOME_ADRS, "login")(0) & "rekanan/main"                                 'second page
  LLNG_BARU = Split(HOME_ADRS, "login")(0) & "rekanan/semualelangbaru"                'third page
  Set IE = CreateObject("InternetExplorer.application")
  ActiveSheet.Cells.ClearContents
  With IE
    '.Visible = True
    .navigate HOME_ADRS: Wait ""                         'first in page
    
    With .document
    Dim us, ps As Object
      Set us = IE.document.getElementsByName("user_id")(0)
      If Not us Is Nothing Then us.Value = USER_LOGN
      Set us = IE.document.getElementsByName("hashpassw")(0)
      If Not us Is Nothing Then us.Value = PASS_WORD
       SendKeys "{ENTER}", True: Wait HOME_MAIN            'second page
      .Links(2).Click: Wait LLNG_BARU                      'third page page
      Dim y As Long, ele As Object
      y = 2
      Set tablerow = .getElementsByClassName("horizLine")
    For Each ele In tablerow
        Cells(y, 1) = ele.getElementsByTagName("td")(0).textContent          'this is error debug
        Cells(y, 2) = ele.getElementsByClassName("pkt_nama")(0).textContent  'this is ok
       y = y + 1
       Debug.Print ele.textContent
    Next
     .Links(6).Click: Wait ""
    End With
     .Quit
  End With
 
  Set IE = Nothing: Application.StatusBar = "Done ..."
   Range("A1:B1").Value = Array("KODE LELANG", "NAMA PAKET")
   Range("A1:b1").Columns.Width = 20
End Sub

Private Sub Wait(ByVal cUrl As String)
  If cUrl <> "" Then IE.navigate cUrl
  Application.StatusBar = "Wait for " & IIf(cUrl <> "", cUrl, "connection") & "..."
  While IE.Busy Or IE.ReadyState <> 4
    Application.Wait (Now + TimeValue("0:00:01")): DoEvents
  Wend
End Sub

xml.png