Копирование групп с сохранением иерархии

Доброго времени.
Подсобите с идеей алгоритма кому не в лом.

Если ЭлементСпр.ЭтоГруппа Тогда

        НоваяГруппа          = ЭлементСпр.Скопировать();
        НоваяГруппа.Родитель = ВставитьВС;
        НоваяГруппа.Записать();

        ТоварыРодителя = Справочники.Номенклатура.ВыбратьИерархически(ЭлементСпр);
        Пока ТоварыРодителя.Следующий() Цикл
            //РодительДляНовыхЭлементов = Справочники.Номенклатура.НайтиПоКоду(НоваяГруппа.ПолныйКод(),Истина);
            ОбъектВыборки = ТоварыРодителя.ПолучитьОбъект();
            Сообщить(" "+ТоварыРодителя.ПолучитьОбъект()+" Родитель "+ТоварыРодителя.ПолучитьОбъект().Родитель);
            Если ОбъектВыборки.ЭтоГруппа Тогда
                НоваяГруппа = ОбъектВыборки.Скопировать();
                                НоваяГруппа.Родитель = ?
                НоваяГруппа.Записать();
                        Иначе
                НовыйЭлемент = ОбъектВыборки.Скопировать();
                                НовыйЭлемент .Родитель = ?
                НовыйЭлемент .Записать();
            КонецЕсли;
        КонецЦикла;

Сижу туплю. Подскажите пжл