Разгруппировать все элементы сводной таблицы

[bzzzu]

Добрый день!
При группировке элементов сводной таблицы создается новое поле, собственно вопрос, как его удалить с помощью vba? Или как к нему обратиться в общем случае, не по имени чтобы?
Названия полей и групп меняются от случаю к случаю при работе, поэтому по названиям никак(
Пример таблицы во вложении (необходимо удалить созданное поле Ассортимент2, чтобы элементы сводной таблицы не были сгруппированы).
Буду очень признательна за любую подсказку в этом направлении!

[_Boroda_]

Где-то так можно

Код Выделить Развернуть

n = ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields.Count
ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields(n).Orientation = xlHidden

[bzzzu]

Где-то так можно

Код Выделить Развернуть

n = ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields.Count
ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields(n).Orientation = xlHidden

Спасибо, но при этом поле просто становится неактивно - прячется, а не удаляется, а необходимо именно удалить, иначе вот такие поля-группировки элементов будут накапливаться в таблице с невообразимой скоростью(

[_Boroda_]

Ну хорошо, тогда так

Код Выделить Развернуть

n = ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields.Count
nn = ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields(n).Name
    ActiveSheet.PivotTables("СводнаяТаблица6").PivotSelect nn & "[All]", xlLabelOnly + xlFirstRow
    Selection.Ungroup

[bzzzu]

Спасибо огромное! 
Работает!