Макрос ниже делает то, что вы ищете. Однако сложно представить более простой макрос. У вас есть идеи, как я создал этот макрос или как его использовать? Пожалуйста, укажите, сколько вы знаете о VBA, и я постараюсь помочь вам начать, если вам нужен такой уровень помощи.
Option Explicit
Sub DeleteTotalsRow()
' Find a row containing "total" (any case) and delete it.
' 27Apr20 Coded.
Dim Rng As Range
With Worksheets("Data")
Set Rng = .Cells.Find(What:="total", After:=.Range("A1"), LookIn:=xlFormulas2, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
If Rng Is Nothing Then
' Totals row not found
Else
.Rows(Rng.Row).EntireRow.Delete
End If
End With
End Sub