let r = 0
for(let i=1;i <= ActiveSheet.PivotTables(1).PivotFormulas.Count;i++) {
    r++
    Cells.Item(r, 1).Value2 = ActiveSheet.PivotTables(1).PivotFormulas.Item(i).Formula
}