Allow user to edit dynamic range on protected sheet

[PingTing]

I need to open up a dynamic range to allow a user to edit the data there. I have the following code;

Sub resetALL()

    Sheet22.Unprotect
    
    Dim PVcolumn As Long
    Dim TR As Long
    
    PVcolumn = Rows(9).Find("Planned Value", , xlValues, xlWhole, , , 0).Column
    TR = Columns("C").Find("Total", , xlValues, xlWhole, , , 0).Row
    
    Range("F10", Cells(TR - 1, PVcolumn)).Formula = "=IF(OR($C10="""",F$9=""""),"""",IF(AND($C10=""Total"",F$9>0,F$9>$E$4),SUM(OFFSET(F$10,0,0,COUNTA($B$10#),1)),IF(AND($C10=""Total"",F$9=""Planned Value""),SUM(OFFSET(F$10,0,0,COUNTA($B$10#),1)),IF(AND($C10=""Total"",F$9=""Remaining""),$E10-E10,IF(AND($C10=""Total"",F$9=""Spent""),SUMIFS(EffortPC,PostingDate,""<""&CEILING(EOMONTH($E$4,0)-5,7)),IF(AND($C10=""Total"",F$9>0),SUMIFS(EffortPC,PostingDate,"">=""&CEILING(EOMONTH(F$9,-1)-5,7),PostingDate,""<""&CEILING(EOMONTH(F$9,0)-5,7)),IF(F$9=""Spent"",SUMIFS(EffortPC,HeirarchyCode,$B10,PostingDate,""<""&CEILING(EOMONTH($E$4,0)-5,7)),IFERROR(IF(F$9=""Remaining"",$E10-E10,IF(F$9=""Planned Value"",SUM(OFFSET(G10,0,0,1,COUNT(G$9:$CA$9))),SUMIFS(EffortPC,HeirarchyCode,$B10,PostingDate,"">=""&CEILING(EOMONTH(F$9,-1)-5,7),PostingDate,""<""&CEILING(EOMONTH(F$9,0)-5,7)))),""""))))))))"
    Range("F" & TR & ":AZ" & TR).Formula = "=IF(OR($C" & TR & "="""",F$9=""""),"""",IF(AND($C" & TR & "=""Total"",F$9>0,F$9>$E$4),SUM(OFFSET(F$10,0,0,COUNTA($B$10#),1)),IF(AND($C" & TR & "=""Total"",F$9=""Planned Value""),SUM(OFFSET(F$10,0,0,COUNTA($B$10#),1)),IF(AND($C" & TR & "=""Total"",F$9=""Remaining""),$E10-E10,IF(AND($C" & TR & "=""Total"",F$9=""Spent""),SUMIFS(EffortPC,PostingDate,""<""&CEILING(EOMONTH($E$4,0)-5,7)),IF(AND($C" & TR & "=""Total"",F$9>0),SUMIFS(EffortPC,PostingDate,"">=""&CEILING(EOMONTH(F$9,-1)-5,7),PostingDate,""<""&CEILING(EOMONTH(F$9,0)-5,7)),IF(F$9=""Spent"",SUMIFS(EffortPC,HeirarchyCode,$B" & TR & ",PostingDate,""<""&CEILING(EOMONTH($E$4,0)-5,7)),IFERROR(IF(F$9=""Remaining"",$E" & TR & "-E" & TR & ",IF(F$9=""Planned Value"",SUM(OFFSET(G" & TR & ",0,0,1,COUNT(G$9:$CA$9))),SUMIFS(EffortPC,HeirarchyCode,$B" & TR & ",PostingDate,"">=""&CEILING(EOMONTH(F$9,-1)-5,7),PostingDate,""<""&CEILING(EOMONTH(F$9,0)-5,7)))),""""))))))))"
    
    AllowEditRange.Add Title:="PlannedValues", Range:=Range(Cells(Rows(10), PVcolumn + 1), Cells(TR - 1, Columns("AZ")))
    
    Sheet22.Protect
    
End Sub

I unprotect the sheet to begin because the formulas need to be placed in the correct rows and columns. Then I want to allow the user to edit the range. Then I need to protect the sheet.

What am I missing on my AllowEditRange line? I get a 'typemismatch' error.