=СУММ((N2-$BS$2):(N4068-$BS$2))

=МЕДИАНА(ЕСЛИ(AM:AM='Списки переменных'!P4;N:N))

=МЕДИАНА(ЕСЛИ(И(AM:AM='Списки переменных'!P3;N:N<AP2);N:N))

=ЕСЛИ(ЕОШИБКА(ПОИСК("СЛЕС";A2;1));ЕСЛИ(ЕОШИБКА(ПОИСК("ДИСП";A2;1));"?";"Диспетчер");"Слесарь")

=ЕСЛИ(ЕОШИБКА(ПОИСК("СЛЕС";AH2;1));ЕСЛИ(ЕОШИБКА(ПОИСК("ДИСП";AH2;1));"?";"диспетчер");"слесарь")

ЕСЛИ(BO2=0 И BP2;"менее полугода";ЕСЛИ(BO2=0 И BP2;"от полугода включая до года не включая";BO2))

Public Sub Delete_Privetik()
    Dim b As Range, c As Range, d As Range, LastRow As Long, r As Long
    On Error Resume Next
    Set b = Range("g2:g2500").Cells
    Set c = Range("bi2:bi2500").Cells
    On Error GoTo 0
    If b Is Nothing Then
        Exit Sub
    Else
        LastRow = b.Rows.Count
        LastRow = LastRow + b.Row - 1
        Application.ScreenUpdating = False
        For r = LastRow To b.Row Step -1
            If Cells(r, b.Column).Value = "14" And Cells(r, c.Column).Value = "15" Then Rows(r).Delete
        Next r
    End If

Public Sub Delete_Row10()
    Dim b As Range, LastRow As Long, r As Long
    On Error Resume Next
    Set b = Range("u2:u2500").Cells
    On Error GoTo 0
    If b Is Nothing Then
        Exit Sub
    Else
        LastRow = b.Rows.Count
        LastRow = LastRow + b.Row - 1
        Application.ScreenUpdating = False
        For r = LastRow To b.Row Step -1
            If Cells(r, b.Column).Value < 100 Then Rows(r).Delete
        Next r
    End If
End Sub

Sub Delete_Row6()
Worksheets("Лист1").Cells(5, 11) = "Привет"
End Sub

Public Sub Delete_Row()
    Dim DR As Range, LastRow As Long, r As Long
        
    On Error Resume Next
    
    Set DR = Range("i1:i1500").Cells
    'Application.InputBox("Выделите диапазон, в котором необходимо делать выборку:", _
    '"Выделите диапазон", Default:=ActiveCell.Address, Type:=8)
    ' здесь эти две строчки делают так, чтобы я мышкой выбирал значения
    On Error GoTo 0
    If DR Is Nothing Then
        Exit Sub
    Else
        LastRow = DR.Rows.Count
        LastRow = LastRow + DR.Row - 1
        Application.ScreenUpdating = False
        For r = LastRow To DR.Row Step -1
            'If Cells(r, DR.Column).Value = 0 Then Rows(r).Hidden = True
            If Cells(r, DR.Column).Value = "синий" Then Rows(r).Delete
        Next r
    End If
End Sub