Исключить группы после выполнения запроса метаданных

Задача: необходимо получить ПОСЛЕДНИЙ ЭЛЕМЕНТ по коду справочника. Если нет кода - любой ЭЛЕМЕНТ.

Не получается сделать уникальность, т.к. существуют справочники, у которых нет кода.

Пока делаю так:
Процедура ПолученияПоследнегоПоКодуЭлемента()

    СписокСправочников.Очистить();

    Для Каждого Спр из Метаданные.Справочники Цикл

        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
        | Справочник.Ссылка Как Ссылка
        |ИЗ
        | Справочник."+ Спр.Имя+ " КАК Справочник
        |УПОРЯДОЧИТЬ ПО
        |Ссылка УБЫВ";

        РезультатЗапроса = Запрос.Выполнить();

        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

        Если ВыборкаДетальныеЗаписи.Количество()=1 Тогда //если справочник совсем пуст
            Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                Попытка
                    ОткрытиеЗаписьЗакрытиеФормыСправочника(ВыборкаДетальныеЗаписи.Ссылка, спр); //здесь открывается форма, перезаписывается элемент, закрывается форма
                    ТЗ=СписокСправочников.Добавить();
                    ТЗ.КакВКонфигураторе = Спр.Имя;
                    ТЗ.НаименованиеСправочника = Спр.Синоним;
                    Тз.Код = ВыборкаДетальныеЗаписи.Ссылка.Код;
                    Тз.Ссылка = ВыборкаДетальныеЗаписи.Ссылка;
                    Тз.Перезаписан=Истина;
                Исключение
                    ТЗ=СписокСправочников.Добавить();
                    ТЗ.КакВКонфигураторе = Спр.Имя;
                    ТЗ.НаименованиеСправочника = Спр.Синоним;
                    Тз.Код = ВыборкаДетальныеЗаписи.Ссылка.Код;
                    Тз.Ссылка = ВыборкаДетальныеЗаписи.Ссылка;
                    Тз.Перезаписан=Ложь;
                    Тз.Ошибка = ОписаниеОшибки();
                КонецПопытки;

            КонецЦикла;
        Иначе
            ТЗ=СписокСправочников.Добавить();
            ТЗ.КакВКонфигураторе = Спр.Имя;
            ТЗ.НаименованиеСправочника = Спр.Синоним;
            Тз.Перезаписан=Ложь;
            Тз.Ошибка = "Справочник не содержит элементов.";
        КонецЕсли;

    КонецЦикла;

    СписокСправочников.Сортировать("НаименованиеСправочника",+);

КонецПроцедуры