Sayın @tarkanaykın alttaki kodu dener misin?

Sub Düğme1_Tıkla()

Range("d1").Value = ""

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True

ie.navigate "https://www.dmo.gov.tr/Arama?s=tansiyon%20cihaz%C4%B1"

  Application.Wait Now + TimeSerial(0, 0, 6)

  Range("d1").Value = ie.Document.getElementsByClassName("prices text-center")(0).innertext

  ie.Quit

  Set ie = Nothing

End Sub