Добавление CalculatedItems в PivotTable.

[slipchenko]

Добрый день. Ситуация такая: добавляю в поле столбцов вычисляемые объекты

Код: Выделить всё

With .PivotFields("Отчетные периоды")
            i = 2
            While i <= .PivotItems.Count

                .CalculatedItems.Add "За " & .CalculatedItems.Count + 2 & " мес.", _
                "=" & .PivotItems(i - 1).Name & "+" & .PivotItems(i).Name, True

                .PivotItems(.PivotItems.Count).Position = i + 1               

                i = i + 2
            Wend

        End With


И после этого записи начинают дублироваться. В прилагаемом файле пример проблемы.
Подскажите, как избавиться от этих лишних полей?