Нужно найти строку в таблице с названием "Дата операции" и полностью удалить её, а также всё, что над ней.
[вложение удалено администратором]
Макрос
Sub макрос()
Dim r As Long
'1. Поиск в столбце A текста "Дата операции".
r = WorksheetFunction.Match("Дата операции", Columns("A"), 0)
'2. Корректировка с учётом объединённых ячеек.
r = r + Cells(r, "A").MergeArea.Rows.Count - 1
'3. Удаление найденной строки и других строк, которые над этой строкой.
Rows("1:" & r).Delete
End Sub
спасибо