Como pegar um link de uma pesquisa feito pelo vba

[Theux]

O código no vba está conseguindo fazer uma pesquisa no Google dentro do próprio Excel, o que preciso agora é que ele pegue o primeiro Link, esse link sempre vai mudar dependendo da pesquisa, alguém sabe como pegar o link e botar na coluna no Excel?

[Frank K Hosaka]

[Copilot]
Sub ExtrairLinksParaPlanilha()
    Dim ie As Object
    Dim elem As Object
    Dim links As Object
    Dim i As Integer
    Dim ws As Worksheet
    
    ' Definir a planilha de destino
    Set ws = ThisWorkbook.Sheets("Plan1")
    
    ' Criar uma instância do Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' Definir a URL
    ie.Navigate "https://www.exemplo.com"
    
    ' Esperar a página carregar
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' Capturar todos os links (tag <a>)
    Set links = ie.Document.getElementsByTagName("a")
    
    ' Percorrer os links e inserir na planilha
    For i = 0 To links.Length - 1
        ws.Cells(i + 1, 1).Value = links(i).href
    Next i
    
    ' Fechar o Internet Explorer
    ie.Quit
    Set ie = Nothing
End Sub