Почему мой макрос работает только один раз?

Question

Он делает это правильно в первый раз, но как только я нажимаю кнопку, назначенную или запускаю макрос, она просто добавляет еще одну строку в строке (6: 6), которая является дубликатом строк (5: 5). Любая помощь будет высоко ценится.

Пожалуйста, обратите внимание, что она отлично работает, когда я удаляю activesheet.unprotect и activesheet.protect

Sheets("Template").Select 
    Rows("1:21").Select 
    Selection.Copy 
    Sheets("Weekly Plan").Select 
    ActiveSheet.Unprotect 
    Rows("6:6").Select 
    Range("B6").Activate 
    Selection.Insert Shift:=xlDown 
    Range("K10").Select 
    Range("K28:K47").Select 
    Range("K47").Activate 
    Application.CutCopyMode = False 
    Selection.Copy 
    Range("K7").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveSheet.Protect 

Answer 1

Будет ли это работать таким образом?

Sheets("Weekly Plan").Select 
ActiveSheet.Unprotect 
Sheets("Template").Select 
Rows("1:21").Select 
Selection.Copy 
Rows("6:6").Select 
Range("B6").Activate 
Selection.Insert Shift:=xlDown 
Sheets("Weekly Plan").Select 
Range("K10").Select 
Range("K28:K47").Select 
Range("K47").Activate 
Application.CutCopyMode = False 
Selection.Copy 
Range("K7").Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
ActiveSheet.Protect