[Solved] Why does my macro only work once?

by


Would it work this way?

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

solved Why does my macro only work once?