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

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

Option Explicit
 
Sub ПолучитьСписокШин()
    Dim el          As Object
 
    Dim http        As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "https://autoshini.ru/podbor-shin", False
    http.Send
 
    If http.readyState = 4 And http.Status = 200 Then
 
        Dim html    As Object
        Set html = CreateObject("htmlfile")
        html.body.innerHTML = http.responseText
 
        With ThisWorkbook.Worksheets(1)
            .Cells.ClearContents
            .Cells(1, 1).Value = "data-name"
            .Cells(1, 2).Value = "data-price"
 
            Dim i   As Long
            i = 2
 
            For Each el In html.getElementsByTagName("*")
                On Error Resume Next
 
                If el.getAttribute("data-name") <> "" And el.getAttribute("data-price") <> "" Then
                    .Cells(i, 1).Value = el.getAttribute("data-name")
                    .Cells(i, 2).Value = el.getAttribute("data-price")
                    i = i + 1
                End If
 
                On Error GoTo 0
            Next el
 
            .Columns.AutoFit
            MsgBox "Готово. Найдено " & i - 2 & " элементов."
        End With
 
    Else
        MsgBox "Ошибка загрузки страницы. Код: " & http.Status
    End If
 
End Sub

        With ThisWorkbook.Worksheets(1)

        With ActiveWorkbook.Worksheets(1)