Удалить весь контент после указанного c слова

Question

Я хочу использовать VBA для 1) Найти слово «Отчет:» в моем листе Excel (я знаю, что слово «Отчет:» появится на листе только один раз); 2) Удалите все содержимое (включая слово «Отчет») ниже этой ячейки

Таким образом, в идеале результат должен выглядеть следующим образом:

Объем данных изменится, поэтому слово «Отчет:» не будет находиться в строке 109 каждый раз.

Это код, который я сейчас использую,

Sub Trial()

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="Report:", _
    Forward:=True
If myRange.Find.Found = True Then
    myRange.SetRange (myRange.End + 1), ActiveDocument.Content.End
    myRange.Delete
End If
End Sub

Но он дает мне

ошибка времени выполнения '424'

Answer 1

Попробуйте:

Option Explicit
Sub ReportKiller()
    Dim Report As String, r As Range, rKill As Range
    Report = "Report"
    Set r = Cells.Find(Report, after:=Cells(1, 1))
    If Not r Is Nothing Then
        Set rKill = Range(r, r.End(xlDown))
        rKill.EntireRow.Delete
    End If
End Sub

Будет удалено все содержимое листа из ячейки Отчет вниз.