Uma das soluções mais avançadas q eu já vi p/ o assunto foi montada pelo nosso colega Mikel na planilha anexa.

Djunqueira, obrigado pela resposta, mais o link não abre aqui, poderia reencaminhar o arquivo?

Vamos ver se zipado vai...

Não abre, diz que o arquivo de origem não pode ser lido.

Tente este link do OneDrive:
https://1drv.ms/x/s!AhXzOGVf0n4bmSTZS4KpACB8uZbC

DJunqueira, muito obrigado pelas informações, consegui abrir e vai me ajudar muito nos estudos.

Consegui criar uma planilha com um botton de pesquisa que me trás o valor que preciso, caso alguém precise do código futuramente segue abaixo:

'Cod planilha

S

ub BuscaDados_Operador()
    
    Dim IE As Object
    Dim iLin As Long

    iLin = 4

While Cells(iLin, "C").Text <> ""
If Cells(iLin, "E").Text = "" Then
       'instancia um objeto do Internet Explorer e o torna visivel
       Set IE = CreateObject("internetexplorer.application")
       IE.Visible = False
     
       'vai para a página que você quer capturar
       IE.navigate Cells(iLin, "D").Text
       
       Do While IE.busy
       Loop
    
    Set objCollection = IE.Document.getelementsbytagname("legend")
       i = 0
           
       While i < objCollection.Length
           If objCollection(i).innerText = "Preço" Then
               ' Set text to enter
               sValor = objCollection(i).ParentNode.innerText
               Cells(iLin, "E").Value = Trim(Replace(Replace(sValor, "Preço", ""), "R$", ""))
                
                
           End If
           i = i + 1
       Wend
    CloseIE
End If
   iLin = iLin + 1
    ii = 0
    Do While ii < 10000
        ii = ii + 1
    Loop
Wend
End Sub

Public Sub CloseIE()
    Dim Shell As Object
    Dim IE As Object
 
    Set Shell = CreateObject("Shell.Application")
 
    For Each IE In Shell.Windows
        If TypeName(IE.Document) = "HTMLDocument" Then
            IE.Quit
        End If
    Next
End Sub


'Cod CMBotton


Private Sub cmdb_Click()
    
    
If (ActiveCell.Row > 4 And Cells(ActiveCell.Row, "D").Text <> "") Or txtb.Text <> "" Then
    
    txtb.Value = Cells(ActiveCell.Row, "D").Text

    If txtb.Text <> "" Then
        Dim IE As Object
           'instancia um objeto do Internet Explorer e o torna visivel
           Set IE = CreateObject("internetexplorer.application")
           IE.Visible = False
         
           'vai para a página que você quer capturar
           IE.navigate txtb.Text
           
           Do While IE.busy
           Loop
        
        Set objCollection = IE.Document.getelementsbytagname("legend")
           i = 0
               
           While i < objCollection.Length
               If objCollection(i).innerText = "Preço" Then
                   ' Set text to enter
                   sValor = objCollection(i).ParentNode.innerText
                   Cells(ActiveCell.Row, "E").Value = Trim(Replace(Replace(sValor, "Preço", ""), "R$", ""))
                    
                    
               End If
               i = i + 1
           Wend
        CloseIE
    End If
       iLin = iLin + 1
        ii = 0
        Do While ii < 10000
            ii = ii + 1
        Loop
        Set IE = Nothing
        txtb.Value = ""
End If

End Sub