Formula too long

I am working on building a summary sheet that pulls data from a pivot table. The pivot table pulls data monthly. The summary sheet has all months of the year pre-defined and thus will have months without any data in the pivot table. I was trying to use the if(iserror code to write a "$0" in the out months but my code is too long. Wondering if you have any thoughts on how to make this usable.

 '   Range("G9").Select
 '   ActiveCell.FormulaR1C1 = _
 '   "=IF(ISERROR(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""002"",""Month"",1)+(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""003"",""Month"",1)+(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""005"",""Month"",1))=TRUE,""$0"",(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""002"",""Month"",1)+(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""003"",""Month"",1)+(GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""005"",""Month"",1)))"

Thanks!

You could perhaps try:

Range("G9").FormulaR1C1 = "=LOOKUP(9.99E+307,CHOOSE({1,2},0,GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""002"",""Month"",1)+GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""003"",""Month"",1)+GETPIVOTDATA(""Total_Cost"",'Summary Financial'!R3C1,""Req_project_code"",""" & PBPNum & """,""Time_step_num"",""005"",""Month"",1)))"