Sub естьфильтр()
    'Range([A1].Offset(1, 2).Resize(2, 1).SpecialCells(xlCellTypeVisible).Address).Select
    
    With ActiveSheet.Range("A1").CurrentRegion
        .Offset(1, 2).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).Select
    End With
End Sub

Option Explicit

Sub Makros1()
    Dim i&, j%, indR&, indC%, tbl()
    Dim rRng As Range, sngArea As Range, rowRng As Range
    
    Application.ScreenUpdating = False
    With ActiveSheet
        With .Range("A1").CurrentRegion
            indR = .Rows.Count - 1: indC = .Columns.Count
            .AutoFilter Field:=1, Criteria1:="<>4"
            Set rRng = .Offset(1, 0).Resize(indR, indC).SpecialCells(xlCellTypeVisible)
            .AutoFilter
            indR = 0: indC = 0
            For Each sngArea In rRng.Areas
                indR = indR + sngArea.Rows.Count
            Next
            indC = rRng.Columns.Count
            ReDim tbl(1 To indR, 1 To indC)
            For j = 1 To indC
                i = 0
                For Each rowRng In rRng.Rows
                    i = i + 1: tbl(i, j) = rowRng.Cells(j).Value
                Next
            Next
        End With
        .Range("D1").Resize(indR, indC).Value = tbl
        Erase tbl
    End With
    Application.ScreenUpdating = True
End Sub

Sub SQLQuery_2()
    Const varSQL$ = "SELECT HCountItem FROM cut_tools WHERE cut_name='A141'"
    Dim varConn As String: varConn = "ODBC;DBQ=\\Server-esko\ae_base\BD_CutTools.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
    
    With ActiveSheet
        .Range("A1").CurrentRegion.ClearContents
        With .QueryTables.Add(Connection:=varConn, Destination:=.Range("A1"))
            .CommandType = xlCmdSql
            .CommandText = varSQL
            .Name = "Query-39008"
            .FieldNames = False
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End With
End Sub

    Range("C12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("D12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;4;1)"
    Range("E12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("F12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("G12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("H12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("I12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("J12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("K12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("L12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("M12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("N12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("O12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("P12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("Q12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("R12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("S12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"
    Range("T12").FormulaLocal = "=ИНДЕКС(Автотранспорт!$A:$A;3;1)"

    Range("D12").Formula = "=INDEX(Автотранспорт!$A:$A,4,1)"
    Range("C12,E12:T12").Formula = "=INDEX(Автотранспорт!$A:$A,3,1)"
    Range("C12:T12").Value = Range("C12:T12").Value

Option Explicit

Sub poneslo_chislo()
    Dim chislo As Double, i As Long, kolvo As Long, niz As Long, ver As Long
    
    niz = 1                         'nizhnyy razmer
    ver = Range("b11").Value        'verkhniy razmer
    kolvo = Range("b13").Value      'kolichestvo
    
    i = Cells(Rows.Count, "d").End(xlUp).Row
    If i < 11 Then i = 11
    Range("d11:d" & i).ClearContents
    
    Randomize
    'Drugoy variant
    'Range("d11").Value = Int((ver - niz + 1) * Rnd + niz)
    
    'Drugoy variant
    'For i = 2 To kolvo
    For i = 1 To kolvo
        chislo = Int((ver - niz + 1) * Rnd + niz)
        Do Until TypeName(Application.Match(chislo, Range("d11:d" & i + 10), 0)) = "Error"
        'Drugoy variant
        'Do Until TypeName(Application.Match(chislo, Range("d11:d" & i + 10 - 1), 0)) = "Error"
            chislo = Int((ver - niz + 1) * Rnd + niz)
        Loop
        Range("d" & i + 10).Value = chislo
    Next
End Sub

Private Sub CommandButton1_Click()
    'Call DoThis_Проежка
    Call DoThis_Борт
    Call DoThis_Проежка
End Sub

i = 1

i = Cells(8, Columns.Count).End(xlToLeft).Column

Option Explicit

Declare Function rand Lib "msvcrt" () As Long

Sub rand_msvcrt()
    Dim i&, j%, psevdosluchaynoye_chislo
    For i = 1 To 10
        For j = 1 To 10
            psevdosluchaynoye_chislo = rand / 32767 'diapazon 0 - 1
            Cells(i, j).Value = psevdosluchaynoye_chislo
        Next
    Next i
End Sub

...
Cells(ListBox1.List(0, 0), 2).Select
...

Private Sub ListBox1_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub ' => A.
    Cells(ListBox1.Value, 2).Select          ' => B.
End Sub

Sub Obmen_Massivami()
    Dim Peremennaya_Massiva As Variant
    Dim Vsego_Elementov As Long
    
    Vsego_Elementov = 10
    'ReDim Peremennaya_Massiva(1 To Vsego_Elementov)
    ReDim Peremennaya_Massiva(1 To Vsego_Elementov, 1 To 1)
    
    For i = 1 To Vsego_Elementov
        'Peremennaya_Massiva(i) = Cells(i, 1)
        Peremennaya_Massiva(i, 1) = Cells(i, "A")
    Next i
    For i = 1 To Vsego_Elementov
        'Cells(i, 3) = Peremennaya_Massiva(i)
        Cells(i, "C") = Peremennaya_Massiva(i, 1)
    Next i
    
    '[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva
    [E1].Resize(Vsego_Elementov, 1).Value = Peremennaya_Massiva
End Sub

Option Explicit

Sub def()
    Dim arr: arr = Range("C4:C18").Value
    Dim i&, poisk: poisk = Range("E20").Value
    For i = 1 To UBound(arr, 1)
        If arr(i, 1) = poisk Then Exit For
    Next
    If i > UBound(arr, 1) Then Exit Sub
    arr(i, 1) = ""
    For i = i To UBound(arr, 1) - 1
        arr(i, 1) = arr(i + 1, 1)
    Next
    Range("C4:C18").Value = arr: Erase arr
End Sub

Option Explicit

Sub abc()
    Dim teS, r&
    With Range("C4:C18")
        Set teS = .Find(Range("E20").Value, .Cells(.Cells.Count), xlValues, xlWhole, xlByRows)
    End With
    If teS Is Nothing Then Exit Sub
    For r = teS.Row To Range("C4:C18").Rows.Count
        Cells(r, "C").Value = Cells(r + 1, "C").Value
    Next
End Sub

Private Sub cmbNames_Change()
    Dim indks As Long
    Dim sText As String
    
    sText = Trim$(cmbNames.Value)
    indks = cmbNames.ListIndex
    
    If Len(sText) = 0 Then
        cmbSource.Filter = ""
    Else
        If indks = -1 Then cmbSource.Filter = "names Like '*" & sText & "*'"
    End If
    
    If cmbSource.RecordCount = 0 Then
        cmbNames.List = Array("[не найдено соответствия]")
        Exit Sub
    End If
    
    cmbSource.MoveFirst
    cmbNames.Column = cmbSource.GetRows
    cmbNames.DropDown
End Sub

Private Sub cmbNames_Change()
    Dim sText As String
    Static stoy As Boolean
    
    sText = Trim$(cmbNames.Value)
    cmbNames.DropDown
    
    If stoy Then
        If sText = "" Then stoy = False: GoSub abcdefg
        Exit Sub
    End If
    
    If Len(sText) = 0 Then
        GoSub abcdefg
    Else
        cmbSource.Filter = "names Like '*" & sText & "*'"
        If cmbSource.RecordCount > 0 Then
            stoy = True
            cmbSource.MoveFirst
            cmbNames.Column = cmbSource.GetRows
        Else
            cmbNames.List = Array("[не найдено соответствия]")
        End If
    End If
    
Exit Sub
abcdefg:
    cmbSource.Filter = ""
    cmbSource.MoveFirst
    cmbNames.Column = cmbSource.GetRows
    Return
End Sub