VBA to fill the calculation formula in pivottable2

Dear expert

I have pivottable2 which have calculation of daytoday activity i want fill formula in pivot table2 in range In AO&AP wherever find total of type according segment.
formula in AO sum of segment term{1,3,12}+{24}+{36)
AO=SUM(C68:E68)+SUM(I68:K68)+SUM(O68:P68)+SUM(T68:V68)+SUM(Z68:AA68)+SUM(AE68:AG68)+F68*24/12+G68*36/12+L68*24/12+M68*36/12+Q68*24/12+R68*36/12+W68*24/12+X68*36/12+AB68*24/12+AC68*36/12+AH68*24/12+AI68*36/12

AP=AO68-AM68 where ever find total of type.

find the attachment