How to resolve this "object required" error on micorsoft edge windows 10 and office 2010?

Sub ScrapeTableDataWithHyperlinks()
    Dim URL As String
    Dim ie As Object ' InternetExplorer
    Dim HTMLDoc As Object ' HTMLDocument
    Dim Table As Object ' HTMLTable
    Dim Row As Object ' HTMLTableRow
    Dim Cell As Object ' HTMLTableCell
    Dim i As Long, j As Long
    Dim ws As Worksheet
    Dim startRow As Long, startCol As Long
    Dim myMessage As Variant    
    
    Application.ScreenUpdating = False 
    
    ' Replace this URL with the website URL you want to scrape
    URL = "https://indexes.nasdaqomx.com/Index/Weighting/NDX"

    ' Replace the worksheet name with the name of the sheet you want to use
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' Replace the row and column number where you want to start 
    ' writing the table data
    startRow = 5
    startCol = 1
    
    ' Create a new instance of InternetExplorer and navigate to the URL
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False ' Set to True if you want to see the browser window
    
    ie.navigate URL
    
    ' Wait for the page to load completely

    Do While ie.Busy Or ie.readyState <> 4
        On Error GoTo 0
       DoEvents
    Loop
    
   ' On Error Resume Next
   ' If Err.Number <> 0 Then
   ' myMessage = "Error " & CStr(Err.Number) & " " & Err.Description
    ' do something with this info
    'Err.Clear
    ' Exit Sub
'End If
    
    'Do While ie.readyState = 4: DoEvents: Loop   
    'Do Until ie.readyState = 4: DoEvents: Loop
    
    ' Get the HTML document
    Set HTMLDoc = ie.document
    
    ' Find the table in the HTML document
    Set Table = HTMLDoc.getElementById
    ("weightingsTable") ' Replace "table_id" with the actual ID of the table
    
    ' Check if the table exists
    If Not Table Is Nothing Then
        i = startRow
        
        ' Loop through each row in the table
        For Each Row In Table.getElementsByTagName("tr")
            j = startCol
            
            ' Loop through each cell in the row
            For Each Cell In Row.getElementsByTagName("td")
                ' Check if the cell contains a hyperlink
                If Cell.getElementsByTagName("a").Length > 0 Then
                    ' If the cell contains a hyperlink, 
                    ' write the hyperlink text and URL to the worksheet
                    ws.Cells(i, j).Value = Cell.getElementsByTagName("a")(0).innerText
                    ws.Hyperlinks.Add Anchor:=ws.Cells(i, j), 
                    Address:=Cell.getElementsByTagName("a")(0).href
                Else
                    ' If the cell does not contain a hyperlink, 
                    ' write the cell value to the worksheet
                    ws.Cells(i, j).Value = Cell.innerText
                End If
                
                j = j + 1
            Next Cell
            
            i = i + 1
        Next Row
    Else
        MsgBox "Table not found on the page."
    End If
    
    ' Clean up
    ie.Quit
    Set ie = Nothing
    Set HTMLDoc = Nothing
    Set Table = Nothing
    Set Row = Nothing
    Set Cell = Nothing
    Set ws = Nothing
    
    Application.ScreenUpdating = True
    MsgBox "Table data with hyperlinks has been scraped and 
            written to the worksheet.", vbInformation     
    
End Sub