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_USBHub")
    
    For Each objItem In colItems
        If InStr(objItem.Caption, "Запоминающее устройство для USB") > 0 Then
            serial(i,1) = objItem.DeviceID
            i=i+1
       End if
next

    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))