Slet fra et søge ord til et andet - VBA

Jeg har 5 aktivitetsark hvor der er påført skemaer som alle har søgeordet stop0. Hertil kører jeg en makro der indsætter et nyt skema under det oprindelige hvor det tager udgangspunkt i søgeordet for at finde placeringen og ændre det nye søge på det indsatte skema til stop1, stop2 osv.
Makro:
Sub IndsætEkstraBoks()

Dim slut As String
Dim i As Integer
Dim rng As Range
Dim RowNo As Integer
Dim aktivitet As Worksheet

Set aktivitet = ThisWorkbook.ActiveSheet

i = 0
slut = "stop" & i
For i = 1 To 100
    slut = "stop" & i

    Columns("B:B").Select
    Set rng = Selection.Find(what:=slut, After:=ActiveCell, LookIn:=xlFormulas, _
      lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
      MatchCase:=False)
   
    If rng Is Nothing Then
       
        slut = "stop" & i - 1
        RowNo = aktivitet.Range("B:B").Find(what:=slut, After:=ActiveCell, LookIn:=xlFormulas, _
            lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Row
       
        Sheets("Lister").Activate
        Range("A34:AV45").Select
        Selection.Copy
        aktivitet.Activate
        Range("A" & RowNo).Offset(4, 0).Select
        Selection.Insert Shift:=xlDown
       
        ActiveSheet.Range("B" & RowNo).Offset(15, 0) = "stop" & i
        ActiveSheet.Shapes("Rektangel 1").IncrementTop 45

Kan jeg ligeledes lave en makro hvor den sletter fra det højeste stopX søgeord og op til lige under stop0? Og hvis der ikke er andre end stop0 skal den selvfølgelig ikke slette :)

- Excel Optimisten ^^