несколько разделов строк для удаления с помощью VBA

Question

Ниже приведен код, который я использовал для установки начальной и конечной точек строк, которые необходимо было удалить. Этот раздел встречается в таблице несколько сотен раз. Если я нажму F8 через l oop, все в порядке. Но если я нажму F5 , он сделает пару самостоятельно, прежде чем зависнет и выдаст мне ошибку. Есть ли лучший способ сделать это?

Dim BeginDLT As Range
Dim EndDLT As Range


wbk.Application.Visible = True

'-------Delete Rows from Sheet Table 1---------

 Const strFindStart As String = "Report generated on:*"
 Set BeginDLT = wbk.Sheets("Table 1").Range("A:BU").Find(What:=strFindStart)
 
Const strFindLast As String = "Comments"
 Set EndDLT = wbk.Sheets("Table 1").Range("A:BU").Find(What:=strFindLast)
 
'-----reworking loop-------

Do Until BeginDLT.Row = 0
    If BeginDLT.Row <> 0 Then
        wbk.Sheets("Table 1").Rows(BeginDLT.Row & ":" & EndDLT.Row + 1).EntireRow.Delete
        Set BeginDLT = wbk.Sheets("Table 1").Range("A:BU").Find(What:=strFindStart)
        Set EndDLT = wbk.Sheets("Table 1").Range("A:BU").Find(What:=strFindLast)
    End If
Loop