Is there a way that I can run this code faster?

[VBE313]

Dim rngstart As Range
Dim l As Long, strCells As String
ActiveSheet.Unprotect Password:="B28"
Application.ScreenUpdating = False
Set rngstart = ActiveCell
l = ActiveCell.Row
strCells = "F" & l
Range(strCells).Select
Rows(ActiveCell.Row).Select
Rows(ActiveCell.Row).Offset(1, 0).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.RowHeight = 13.5
Rows(ActiveCell.Row).Offset(1, 0).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
ActiveCell.RowHeight = 5
ActiveCell.Select
ActiveCell.Offset(2, 0).Select
Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(-2, 0).Select
ActiveSheet.paste
ActiveCell.Offset(-1, 0).Select
Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(2, 0).Select
ActiveSheet.paste
Rows(ActiveCell.Row).ClearContents
Rows(ActiveCell.Row).Select
l = ActiveCell.Row
strCells = "F" & l
Range(strCells).Select
Application.Run "NoIndentLevel"
ActiveSheet.Protect Password:="B28"
ActiveSheet.Protect DrawingObje

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel-questions/1093311-code-takes-10-seconds-run.html#post5255054

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).