Macro VBA Error 1004 - Insert Method of range class failed

Pop up error "Microsoft Virtual Basic - Run-Time error '1004' Insert method of range class failed'. When I hit debug, it highlights the following macro line "MacroSaver Macro
'

'
'Sheets("Saved Data").Select
' Rows("2:2").Select
' Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Range("A2") = Date
' Range("B2") = Format(Now, "HH:MM Am/Pm")"


There are multiple team members that access/update the tan cells and are supposed to hit the big save button on sheet 1, which saves certain data and reflects it onto sheet 2. When the save button is hit, it will not save/update, but instead gives the error 1004. I have currently set the formulas to automatic, and macros turned off for the sake of the team. These are typically reversed while causing this error.

Thank you, Rollis. I wanted to make certain that I have the protect/unprotect in the correct spot. I kept being met with the 'end with after the date/time updates. I'm thinking this was causing it to protect again, but I attempted to add the 'end with at the end but didn't seem to fix it. In addition to this, when I do get the save function to run, It seems other users see 'zeros' in the data points where I see values. Same for me seeing zeros when they see values.

Sub MacroSaver()
'
' MacroSaver Macro
'

'
'Sheets("Saved Data").Select
' Rows("2:2").Select
' Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Range("A2") = Date
' Range("B2") = Format(Now, "HH:MM Am/Pm")

With Worksheets("Saved Data")
.Unprotect
.Rows(2).insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("A2") = Date
.Range("B2") = Time
.Range("B2").NumberFormat = "h:mm AM/PM"

'End With

Sheets("Capacity").Select
Range("F19").Select
Sheets("Saved Data").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[10]C[-1]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[10]C[-1]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[10]C[-1]"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[10]C[-1]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[11]C[-5]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[11]C[-5]"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[11]C[-5]"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[11]C[-5]"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[12]C[-9]"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[12]C[-9]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[12]C[-9]"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[12]C[-9]"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[13]C[-13]"
Range("P2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[13]C[-13]"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[13]C[-13]"
Range("R2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[13]C[-13]"
Range("S2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[16]C[-17]"
Range("T2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[16]C[-17]"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[17]C[-19]"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[23]C[-15]"
Range("W2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[23]C[-13]"
Range("X2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("Y2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("AA2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("AB2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("AC2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-22]"
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-21]"
Range("AE2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-21]"
Range("AF2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-21]"
Range("AG2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[24]C[-21]"
Range("AH2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[25]C[-30]"
Range("AI2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[25]C[-30]"
Range("AJ2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AK2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AL2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AM2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AN2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AO2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-34]"
Range("AO3").Select
ActiveWindow.SmallScroll ToRight:=0
Range("AP2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-32]"
Range("AQ2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-32]"
Range("AR2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[29]C[-32]"
Range("AS2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[33]C[-43]"
Range("AT2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[33]C[-43]"
Range("AU2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[33]C[-43]"
Range("AV2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[33]C[-43]"
Range("AW2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[34]C[-47]"
Range("AX2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[34]C[-47]"
Range("AY2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[34]C[-47]"
Range("AZ2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[34]C[-47]"
Range("BA2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[35]C[-51]"
Range("BB2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[35]C[-51]"
Range("BC2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[35]C[-51]"
Range("BD2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[35]C[-51]"
Range("BE2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[36]C[-55]"
Range("BF2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[36]C[-55]"
Range("BG2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[36]C[-55]"
Range("BH2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[36]C[-55]"
Range("BI2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[37]C[-58]"
Range("BJ2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[37]C[-57]"
Range("BK2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[39]C[-60]"
Range("BL2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[39]C[-59]"
Range("BL3").Select
Sheets("Capacity").Select
Range("G3:H3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("B22").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("C20").Select
ActiveCell.FormulaR1C1 = "=R[-2]C"
Range("C22").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("B28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("B30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("C28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("C30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("D28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("D30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("E28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("E30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("F28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("F30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("G28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-2]C)"
Range("G30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("H28").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-6]:RC[-1])"
Range("H30").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C/R[-1]C)"
Range("I28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("I30").Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"
Range("J28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
Range("J30").Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"
Range("K28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C)"
Range("K30").Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"
Range("L28").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C)"
Range("L30").Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"
Range("B40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("C40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("D40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"
Range("E40").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("F40").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("M30:M31").Select
ActiveCell.FormulaR1C1 = _
"=SUM(R[1]C[-11]:R[1]C[-6],R[1]C[-3],R[1]C[-2],R[1]C[-1],R[11]C[-10],R[11]C[-8])"
Range("N30:O31").Select
ActiveCell.FormulaR1C1 = _
"=SUM(R[-18]C[-10],R[-4]C[-4]:R[-4]C[-2],R[9]C[-11],R[9]C[-9])"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=SUM(R[26]C[6],R[26]C[7],R[26]C[8],R[38]C[4])"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[25]C[6])"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/144"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[25]C[3]-R[24]C[3])+(R[25]C[2]-R[24]C[2])"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[24]C[6]-R[23]C[6])"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=R[22]C[7]"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]/24)"
Range("B7").Select
ActiveCell.FormulaR1C1 = _
"=SUM(R[19]C[5],R[19]C[8],R[19]C[9],R[19]C[10],R[32]C[1],R[32]C[3])"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=R[21]C[11]"
Range("B10").Select
Sheets("Saved Data").Select
Range("BM2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[28]C[-52]"
Range("BN2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[28]C[-52]"
Range("BO2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[16]C[-59]"
Range("BO3").Select
Range("J8").Select
Sheets("Saved Data").Select
Range("BS2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[6]C[-69]"
Range("BS3").Select
Range("I7").Select
Sheets("Saved Data").Select
Range("BP2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[17]C[-60]"
Range("BQ2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[18]C[-61]"
Range("BR2").Select
ActiveCell.FormulaR1C1 = "=Capacity!R[19]C[-62]"
Range("BR3").Select
.Protect
End With
End Sub