Vba Script fix

Hello, I'm using a Vba script in order to scap data, but it doesnt' working more. I need to fix This is the script Sub pro1() Dim m As Integer 'If [login to view URL](Now()) = 8 And [login to view URL](Now()) = 9 And [login to view URL](Now()) = 2022 Then Dim element As IHTMLElement Dim elements As IHTMLElementCollection Dim IE As Object Dim html As HTMLDocument Set IE = CreateObject("[login to view URL]") 'If you want to see the internet explorer window you should type down as True otherwise False [login to view URL] = True For m = 2 To [login to view URL]("A" & [login to view URL]).End(xlUp).Row If [login to view URL]("B" & m) = "" Then GoTo lab2: Url = "[login to view URL]" & [login to view URL]("B" & m) & "&__mk_it_IT=%C3%85M%C3%85%C5%BD%C3%95%C3%91&crid=2J09C1LHL9BH2&sprefix=" & [login to view URL]("B" & m) & "%2Caps%2C184&ref=nb_sb_noss" [login to view URL] Url 'Wait until IE has loaded the web page Do While [login to view URL] <> READYSTATE_COMPLETE [login to view URL] = " Loading Web page … " DoEvents Loop [login to view URL] (Now() + TimeValue("00:00:02")) Set html = [login to view URL] On Error Resume Next [login to view URL]("sp-cc-accept").Click On Error GoTo 0 Set elements = [login to view URL]("sg-col-inner") 'Here is the className "priceblock_ourpirce" I found it in InspectElement but its not getting any data. I am not able to find the 'correct ClassName for Price and Name of Product from InspectElemnt. As I am not a web developer. Dim count As Long Dim erow As Long If InStr([login to view URL]("a-row")(0).innerText, "Nessun risultato per ") > 0 Then [login to view URL]("C" & m) = [login to view URL]("a-row")(0).innerText [login to view URL]("D" & m) = [login to view URL]("a-row")(0).innerText [login to view URL]("E" & m) = [login to view URL]("a-row")(0).innerText [login to view URL]("F" & m) = [login to view URL]("a-row")(0).innerText GoTo lab2: Else If [login to view URL] > 0 Then count = Split(elements(0).innerText, " ")(0) Else End If End If If count >= 1 Then j = False Set ele = [login to view URL]("rush-component s-latency-cf-section") For Each e In ele For Each i In [login to view URL]("span") If InStr([login to view URL], "RISULTATI") > 0 Then j = True k = 1 GoTo lab159: End If If j = True And k = 2 Then [login to view URL] j = False k = 1 GoTo lab1: End If If k = 1 Then k = 2 End If lab159: Next i Next e Else End If lab1: [login to view URL] (Now() + TimeValue("00:00:02")) On Error Resume Next ratings = [login to view URL]([login to view URL]("acrCustomerReviewText").innerText, " ")(0) Price = [login to view URL]("a-offscreen")(0).innerText For Each i In [login to view URL]("productDetails_detailBullets_sections1").[login to view URL]("tr") If InStr([login to view URL], "ASIN") > 0 Then Asin = Right([login to view URL]([login to view URL], "ASIN")(1), 11) GoTo lab195: End If Next i lab195: [login to view URL]("C" & m) = ratings [login to view URL]("D" & m) = Price [login to view URL]("E" & m) = link [login to view URL]("F" & m) = Asin ratings = "" Price = "" link = "" Asin = "" lab2: Next m MsgBox "Fetching done." End Sub