Do Until OutputRow = LastRow
            
            If ChartSheet.Cells(real_n, lastcol).Value = "del" Then

                ChartSheet.Range(ChartSheet.Cells(real_n, 1), ChartSheet.Cells(real_n, lastcol + lastcol1 - 2)).Delete
                OutputRow = OutputRow + 1
            Else
                OutputRow = OutputRow + 1
                real_n = real_n + 1
                
            End If
        Loop

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive where InterfaceType='USB'")
    
    
    
    
    For Each objItem In colItems
        serial(i,1) = Trim(objItem.SerialNumber)
       i = i+1
    Next

Sub CreateBlocksInAutoCAD80()
    ' Переменные для Excel
    Dim ws As Worksheet
    Dim length1 As Double, width1 As Double
       
    ' Переменные для AutoCAD
    Dim acadApp As Object
    Dim acadDoc As Object
    Dim insertionPoint1(0 To 2) As Double
    Dim insertionPoint2(0 To 2) As Double
    Dim blockRef1 As Object
    Dim blockName1 As String
      
    ' Инициализация переменных
    Set ws = ThisWorkbook.Sheets("Лист1")
    length1 = ws.Range("A1").Value
    width1 = ws.Range("B1").Value
    
    ' Установление связи с AutoCAD
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If acadApp Is Nothing Then
        Set acadApp = CreateObject("AutoCAD.Application")
    End If
    On Error GoTo 0
    
    ' Создание нового документа в AutoCAD
    On Error GoTo ErrorHandler
    Set acadDoc = acadApp.Documents.Add
    
    ' Координаты точки вставки первого блока
    insertionPoint1(0) = 0
    insertionPoint1(1) = 0
    insertionPoint1(2) = 0
        
    ' Имена блоков
    blockName1 = "Block1"
    
    ' Создание первого блока
    Set blockRef1 = acadDoc.ModelSpace.InsertBlock(insertionPoint1, blockName1, 1, 1, 1, 0)
    ' Пример установки свойств блока, если они поддерживаются
    ' blockRef1.Width = width1
    ' blockRef1.Height = length1
        
    ' Отображение AutoCAD
    acadApp.Visible = True
        
    Exit Sub

            w = Split("250x300", "x")
             Debug.Print Application.Max((w))

       ActiveChart.SetSourceData Source:=Range(Cells(28, 3), Cells(28, 8))
       ActiveChart.SetDefaultChart = Range(Cells(2, 3), Cells(2, 8))

   ogrn = Cell.Value
   Dim sURL As String
   sURL = "https://xn--c1aubj.xn--80asehdb/%D0%B8%D0%BD%D1%82%D0%B5%D0%B3%D1%80%D0%B0%D1%86%D0%B8%D1%8F/%D0%BA%D0%BE%D0%BC%D0%BF%D0%B0%D0%BD%D0%B8%D0%B8/?%D0%BE%D0%B3%D1%80%D0%BD=" & ogrn

   Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
   objHTTP.Open "get", sURL, True
   objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   objHTTP.Send "{range:9129370}"
   
   objhttp.WaitForResponse   'На этой строке возникает ошибка

  
  result = objHTTP.responseText

  Set objHTTP = Nothing
  Dim Json As Object

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
c = 2
For i = 2 To lastrow
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
  x = x + 1
Else
  x = 1
End If

If x = 5 Then
Sheets(2).Range(Sheets(2).Cells(c, 1), Sheets(2).Cells(c, 2)).Value = Range(Sheets(1).Cells(i, 1), Sheets(1).Cells(i, 2)).Value
c = c + 1
End If
Next

      For Each cell In rng2
      c = cell.Row
      Range(Cells(x, 22), Cells(x, 24)).Merge
      Range(Cells(x, 22), Cells(x, 24)).FormulaR1C1 = "=SUMIF(R[-17]C[3]:R[-2]C[4],R" c "C33,R[-17]C:R[-2]C[2])"
      x=x+1
      Next cell