Не парсится сайт

Sub ПарсингChrome()
    Dim driver As New WebDriver ' Переменная будет новым вебдрайвером (инициализируется новый драйвер Селениум)
    driver.Start "Chrome" ' Открывается новая страница Chrome
    driver.Get "https://autoshini.ru/podbor-shin" ' Драйвер направляет к заданной странице
    Application.Wait Now + TimeValue("0:00:05") ' Ждём (Application.Wait приостанавливает дальнейшее действие макроса) 5 секунд, чтобы сайт полностью загрузился.
    
    Dim name As Object
    Dim price As Object
    Set name = driver.FindElementsByName("data-name")
    Set price = driver.FindElementsByName("data-price")
    
    Dim currentRow As Integer
    currentRow = 1
           
    Cells(1, 1).Value = name
    Cells(1, 2).Value = price
    
    MsgBox name.innerText
       
    
    driver.Quit
 
End Sub

Sub ПарсингChrome()
    Dim driver As New WebDriver ' Переменная будет новым вебдрайвером (инициализируется новый драйвер Селениум)
    driver.Start "Chrome" ' Открывается новая страница Chrome
    driver.Get "https://autoshini.ru/podbor-shin" ' Драйвер направляет к заданной странице
    Application.Wait Now + TimeValue("0:00:05") ' Ждём (Application.Wait приостанавливает дальнейшее действие макроса) 5 секунд, чтобы сайт полностью загрузился.
 
    
    Dim name As Object
    Dim price As Object
       
    Dim http As Object
    Dim html As Object
    
    Set html = CreateObject("HTMLFile")
    Set http = CreateObject("MSXML2.XMLHTTP")
    Application.Wait Now + TimeValue("0:01:00") ' Ждём (Application.Wait приостанавливает дальнейшее действие макроса) 5 секунд, чтобы сайт полностью загрузился.
    html.body.innerHTML = http.responseText
    
    MsgBox http.responseText
   
    ' Find elements by tag name
    Set productNames = html.getElementsByTagName("div")
   
    Debug.Print productNames(0).getAttribute("data-name")
    
    driver.Quit
 
End Sub

Sub Получить_цену()
Dim myHtml As String, myFile As Object, myTag As Object, myTxt As String, l, i!, s$, x, r!
    s = GetHTML1("https://autoshini.ru/podbor-shin")
    Set myFile = CreateObject("HTMLFile")
        r = 2:    [A1] = "Наазвание":    [B1] = "Цена"
    l = Split(s, vbLf)
    For i = 1 To UBound(l)
        If InStr(1, l(i), "<div data-merchant=") > 0 Then
            x = Split(l(i), "data-")
            Cells(r, 1).Value = Right(x(5), Len(x(5)) - 5)
            Cells(r, 2).Value = Val(Right(x(6), Len(x(6)) - 7))
            r = r + 1
        End If
    Next
End Sub
Function GetHTML1(ByVal myURL As String) As String
On Error Resume Next
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", myURL, False
        .send
        Do: DoEvents: Loop Until .readyState = 4
        GetHTML1 = .responseText
    End With
End Function

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Call DeleteUrlCacheEntry("https://autoshini.ru/podbor-shin")