VBA Indsætning af skabeloner

Jeg har nogle aktivitetsark med 1 skema hver. Når der skal påføres ekstra skemaer kører jeg denne makro ved en makroknap som er placeret under det øverste ark, for at indsætte den klargjorte skabelon under. Når så jeg har kørt makroen et par gange i samme fane, så bliver knappet overlappet af skemaerne. Hvordan kan dette undgås??

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
             
        Exit Sub           
    Else         
        End If
    Next i
End Sub