вот это
ВыборкаДокументов = Документы[МетаданныеКЗамеру.Имя].Выбрать();
КоличествоЗаписей = 0;
Пока ВыборкаДокументов.Следующий() Цикл
КоличествоЗаписей = КоличествоЗаписей + 1;
КонецЦикла;
лучше заменить на Запрос который вернет количество
"ВЫБРАТЬ
| КОЛИЧЕСТВО(ТаблицаДанных.Ссылка) КАК Количество,
|ИЗ
| Документ." + ИмяТаблицы + " КАК ТаблицаДанных