Option Explicit

Sub mrshkei()
Dim sh As Worksheet, cell As Range
    For Each sh In Worksheets
    Set cell = sh.Cells.Find("ВСЕГО:")
        If Not cell Is Nothing Then
            sh.Rows(cell.Row & ":" & sh.Range("A1").SpecialCells(xlLastCell).Row).Clean
        End If
    Next sh
End Sub

Sub Primer()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Dim i As Long
For i = 10000 To 1 Step -1
    If Cells(i, 1) = "ВСЕГО:" Then
        'Range(Cells(i, 1), Cells(i, 2)).Select
        Cells(i, 1).EntireRow.Delete
    End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
End Sub