никак. это динамический список

какие данные? сделать то чего надо в итоге?

идет присваивание значения области из макета. А Вывести() в цикле я не наблюдаю. Выводится вероятно где-то в конце ну и там значение естественно последнее, т.к. обошли всю выборку

ТабДок = Новый ТабличныйДокумент;
Секция = ТабДок.ПолучитьОбласть("R1");
Секция.Область("R1C1").Текст = "Численность сотрудников";
ТабДок.НачатьАвтогруппировкуСтрок();
ТабДок.Вывести(Секция,1,"Группа",Истина);
Итого = 0;
Для Н=1 По 3 Цикл
Значение = Н; Итог = 0;
Секция.Область("R1C1").Текст = "Отдел "+Н;
Секция.Область("R1C2").Текст = "";
ТабДок. Вывести(Секция,2,"Группа 1",Истина);
Секция.Область("R1C1").Текст = "Группа";
Секция.Область("R1C2").Текст = "Численность";
ТабДок. Вывести(Секция,2,"Группа 1",Истина);
Для К=1 По 10 Цикл
Секция.Область("R1C1").Текст = "А"+Н+К;
Секция.Область("R1C2").Текст = Значение;
ТабДок. Вывести(Секция,3,"Группа 2",Истина);
Итог = Итог + Значение;
Значение = Значение + 10;
КонецЦикла;
Секция.Область("R1C1").Текст = "Итого"+Н;
Секция.Область("R1C2").Текст = Итог;
ТабДок. Вывести(Секция,2,"Группа 1",Истина);
Секция.Область("R1C1:R1C2").Текст = "";
ТабДок. Вывести(Секция);
Итого = Итого + Итог;
КонецЦикла;
Секция.Область("R1C1").Текст = "Всего:";
Секция.Область("R1C2").Текст = Итого;
ТабДок.Вывести(Секция,1,"Группа",Истина);
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.ИтогиСнизу = Истина;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Показать("Пример использования верт. автогруппировки");