How do i run this macro specifically to a table in a specific sheet? It runs too slow.

[VBE313]

Sub AddRowForNew()
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"
End Sub

 

[mole999]

how many formulas across the rows are being changed ?