Sub vvv()
    Dim http
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    timeout = 2000 'milliseconds
    http.setTimeouts timeout, timeout, timeout, timeout
    http.Option(2) = 0
    Dim url_ As String
    url_ = "https://api.hh.ru/vacancies?text=NAME: (Программист) and DESCRIPTION: (NOT intermediate)&area=1&only_with_salary=true&no_magic=true&salary=100000&currency_code=RUR&period=30&label=not_from_agency&order_by=publication_time"
    http.Open "get", url_
    http.send
    text = http.responseText
    If InStr(text, "errors") > 0 Then
        Debug.Print text
        Stop
    Else
        If text <> "" Then
            Set qwe = JsonConverter.ParseJson(text)
        End If
    End If
    CountV = qwe("found")
    CountP = qwe("pages")
On Error GoTo AfterSk
    For pg = 1 To CountP
        If pg > 1 Then
            url_ = "https://api.hh.ru/vacancies?text=NAMEПрограммист) and DESCRIPTIONNOT intermediate)&area=1&only_with_salary=true&no_magic=true&salary=100000&currency_code=RUR&period=30&label=not_from_agency&order_by=publication_time&page=" & pg
            http.Open "get", url_
            http.send
            text = http.responseText
            Set qwe = JsonConverter.ParseJson(text)
        End If
        For i = 1 To 20
            ii = (pg - 1) * 20 + i
            Set Item = qwe("items")(i)
            url_ = Item("url")
            url_ = Replace(url_, "?host=hh.ru", "")
            ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1) = Item("name")
            ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 2) = url_
            ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1).Font.Bold = True
            ThisWorkbook.Worksheets(2).Cells(1 + (ii - 1) * 3, 1).Font.Size = 14
            http.Open "get", url_
            http.send
            text = http.responseText
            Set vak = JsonConverter.ParseJson(text)
            Set keySkills = vak("key_skills")
    'On Error GoTo AfterSk
            If Not IsEmpty(keySkills) Then
                CountSk = keySkills.Count
                For jj = 1 To CountSk
                    ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj) = keySkills(jj)("name")
                    ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj).Font.Italic = True
                Next jj
            Else
                ThisWorkbook.Worksheets(2).Cells(3 + (ii - 1) * 3, jj) = vak("description")
            End If
AfterSk:
        If Err.Number <> 0 Then
            'Stop
            Resume Next
            Err.Clear
        End If
            DoEvents
        Next i
    Next pg
    Stop
End Sub