Boa tarde

Eu não sei como escrever Macros, alguém pode me ajudar a completar uma que eu já tenho por favor, ela colecta dados de apenas um link, eu preciso de colectar vários dados de vários links. Tenho os links na coluna A de uma tabela ,gostava que os dados que preciso fossem todos parar a uma folha de Excel única (1 com todos os dados de todos os links)

Segue o codigo:

Sub GrabLastNames()

    'dimension (set aside memory for) our variables
    Dim objIE As InternetExplorer
    Dim ele As Object
    Dim aEle As HTMLLinkElement
    Dim y As Integer
    
    'start a new browser instance
    Set objIE = New InternetExplorer
    'make browser visible
    objIE.Visible = True
    
    'navigate to page with needed data
    objIE.navigate "http://lubematch.shell.com/pt/pt/equipment/EFt8Pe00x"
    'wait for page to load
    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
    
    'we will output data to excel, starting on row 1
    y = 1
    
    'look at all the 'tr' elements in the 'table' with id 'myTable',
    'and evaluate each, one at a time, using 'ele' variable
    For Each aEle In objIE.document.getElementsByClassName("big_text")
        result = aEle
        Sheets("Sheet1").Range("C" & y).Value = result
 
        '...get the text within the element and print it to the sheet in col D
        Sheets("Sheet1").Range("A" & y).Value = aEle.innerText
        Debug.Print aEle.innerText
        y = y + 1
    'repeat until last ele has been evaluated
    Next
    y = 2
    
    'look at all the 'tr' elements in the 'table' with id 'myTable',
    'and evaluate each, one at a time, using 'ele' variable
    For Each aEle In objIE.document.getElementsByTagName("H1")
        result = aEle
        Sheets("Sheet1").Range("C" & y).Value = result
 
        '...get the text within the element and print it to the sheet in col D
        Sheets("Sheet1").Range("A" & y).Value = aEle.innerText
        Debug.Print aEle.innerText
        y = y + 1
    'repeat until last ele has been evaluated
    Next
    y = 3
    
    'look at all the 'tr' elements in the 'table' with id 'myTable',
    'and evaluate each, one at a time, using 'ele' variable
    For Each ele In objIE.document.getElementById("recommendation"). _
      getElementsByTagName("tr")
        'show the text content of 'tr' element being looked at
        Debug.Print ele.textContent
        'each 'tr' (table row) element contains 4 children ('td') elements
        'put text of 1st 'td' in col A
        Sheets("Sheet1").Range("B" & y).Value = ele.Children(0).textContent
        'put text of 2nd 'td' in col B
        Sheets("Sheet1").Range("C" & y).Value = ele.Children(1).textContent
        'put text of 3rd 'td' in col C
        Sheets("Sheet1").Range("D" & y).Value = ele.Children(2).textContent
        'put text of 4th 'td' in col D
        Sheets("Sheet1").Range("E" & y).Value = ele.Children(3).textContent
        'increment row counter by 1
        y = y + 1
    'repeat until last ele has been evaluated
    Next

    'save the Excel workbook
    ActiveWorkbook.Save

End Sub

Obrigado desde já.