Sub Óäàëåíèå_ñòðîêè()
Dim li As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For li = Cells.SpecialCells(xlLastCell).Row To 1 Step -1
If Cells(li, 7).Value = "123" Then Rows(li).Delete
Next li
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub Ìàêðîñ8()
    
    Range("A1").Select
    ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort.SortFields.Add Key:= _
        Range("asd[[#Headers],[âðåìÿ]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("asd[[#Headers],[êîä ïîëüçîâåëÿ]]").Select
    ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort.SortFields.Add Key:= _
        Range("asd[[#Headers],[êîä ïîëüçîâåëÿ]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("All").ListObjects("asd").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub dUdalenieStrokVremeni()
    Dim ra As Range, delra As Range, ТекстДляПоиска As String, xxx As Integer
    Application.ScreenUpdating = True    ' отключаем обновление экрана
    ТекстДляПоиска = "выход"    ' удаляем строки с таким текстом
    ' перебираем все строки в используемом диапазоне листа
   For Each ra In ActiveSheet.UsedRange.Rows
        ' если в строке найден искомый текст
       If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
            ' добавляем строку в диапазон для удаления
           If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    xxx = delra.Areas.count
    Range("H1").Select
    ActiveCell.FormulaLocal = xxx
   If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

Sub dUdalenieStrokVremeni()
    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    ТекстДляПоиска = "выход"    ' удаляем строки с таким текстом
    ' перебираем все строки в используемом диапазоне листа
   For Each ra In ActiveSheet.UsedRange.Rows
        ' если в строке найден искомый текст
       If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
            ' добавляем строку в диапазон для удаления
           If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
   If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

If Not delra Is Nothing Then delra.EntireRow.Delete