Web query

hi i am new to this forum i have a litle problem to ask for solution i have this macro to search for models from this site but returns to me all the page of the product my question is there something to add in this macro to search a certain div class in this page to return me only the price or something like that?
Thanx for your time

Sub URL_Get_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.mediamarkt.gr/webapp/wcs/stores/servlet/MultiChannelSearch?storeId=99452&langId=-18&searchProfile=onlineshop&searchParams=&path=&query=[""search""]", _
Destination:=Range("$A$1:A1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=True
.SaveData = False
End With
End Sub