Extract prices from web page using excel list with product numbers

Hi I have an excel sheet with a list of 150 SKU product numbers, i would like to retrieve the prices for each product number from this web site on a weekly base. the site url is [login to view URL] an example of the query would be [login to view URL] the product number in this case is 5200124320014 when the page loads you will see the lowest price situated under the image on the left hand side in a euro symbol ( 15,20 ) I want that price to be saved next to the product number in the excel sheet. thanks below is partially correct code can you tell me how much you would charge me to fix it Private Sub Worksheet_Change(ByVal Target As Range) If [login to view URL] = Range("keyphrase").Row And _ [login to view URL] = Range("keyphrase").Column Then Dim IE As New InternetExplorer [login to view URL] = True [login to view URL] "[login to view URL]"; & Range("keyphrase").Value Do DoEvents Loop Until [login to view URL] = READYSTATE_COMPLETE Dim Doc As HTMLDocument Set Doc = [login to view URL] Dim sPrice As String sPrice = Trim([login to view URL]("price").innerText) MsgBox sPrice End If