выгрузка в excel

Здрасте. надо выгрузить данные справочника в excel, а как сделать что бы часть данных из запроса отображалась на второй странице екселя?

Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Контрагенты = Справочник.Контрагенты.ТекущийЭлемент;
    |AOGUID = Справочник.Контрагенты.AOGUID;
    |HOUSEGID = Справочник.Контрагенты.HOUSEGID;
    |Дом = Справочник.Контрагенты.Дом;
    |ПризнакСтроения = Справочник.Контрагенты.ПризнакСтроения;
    |УникальныйНомерДомаПомещенияКомнаты = Справочник.Контрагенты.УникальныйНомерДомаПомещенияКомнаты;
    |Квартира = Справочник.Контрагенты.Квартира;
    |ИдентификаторЖКУ = Справочник.Контрагенты.ИдентификаторЖКУ;
    |Группировка Контрагенты упорядочить по Контрагенты.Наименование, Контрагенты.HOUSEGID, Контрагенты.AOGUID, Контрагенты.Дом, Контрагенты.ПризнакВладения, Контрагенты.ПризнакСтроения, Контрагенты.УникальныйНомерДомаПомещенияКомнаты, Контрагенты.ИдентификаторЖКУ;
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
      Эксель = СоздатьОбъект("Excel.Application");
    Эксель.sheetsInNewWorkBook = 2;
    row = 2;                //строки

    Книга = эксель.workbooks.add();
    эксель.Visible=1;
    Лист = Книга.worksheets(1);

Пока Запрос.Группировка(1) = 1 Цикл

ТЗ=СоздатьОбъект("ТаблицаЗначений");
  ТЗ.НоваяКолонка("контрагент");
  ТЗ.НоваяСтрока();
  ТЗ.контрагент = запрос.контрагенты.наименование;
  ТЗ.HOUSEGID = запрос.контрагенты.НомерДома;

ТЗ.ВыбратьСтроки();
    Пока ТЗ.ПолучитьСтроку()=1 Цикл
        лист.Cells(row,1).Value=ТЗ.контрагент;
        лист.Cells(row,2).Value=ТЗ.НомерДома;
row=row+1;
    конеццикла;
    конеццикла;