Загрузка данных из табличного документа

(2) пытаюсь сделать так, чтобы ТЧ документа не очищалась, и новые значения заменяли текущие. С языком знаком очень слабо, пока смог только убрать очищение ТЧ документа (теперь добавляются новые строки в конец ТЧ). Подскажите пожалуйста, какой участок кода подкорректировать чтобы не добавлялись новые строки, а менялось значение ячейки в текущей?
РежимЗагрузки - 2

ОчиститьСообщения();
Сообщить("Выполняется загрузка"+ ТекстВопросаИсточника, СтатусСообщения.Информация);
Сообщить("Всего: " + КоличествоЭлементов, СтатусСообщения.Информация);
Сообщить("---------------------------------------------", СтатусСообщения.БезСтатуса);
Индикатор.Значение = 0;
Индикатор.МаксимальноеЗначение = КоличествоЭлементов;
Загружено = 0;
Для К = ПерваяСтрокаДанныхТабличногоДокумента По ТабличныйДокумент.ВысотаТаблицы Цикл
НомерТекущейСтроки = Индикатор.Значение + 1;
ТекстыЯчеек = Неопределено;
Отказ = Ложь;
ТекущаяСтрока = КонтрольЗаполненияСтроки(ТабличныйДокумент, К, ТекстыЯчеек);
Если РежимЗагрузки =0 Тогда

Объект = Неопределено;
Если Не Запрос = Неопределено Тогда
СтрокаОшибок = "";
Для каждого СтрокаПоиска Из СтрокиПоиска Цикл

ЗначениеРеквизита = Неопределено;

ТекущаяСтрока.Свойство(СтрокаПоиска.ИмяРеквизита,ЗначениеРеквизита);
Если ПустаяСтрока(ЗначениеРеквизита) Тогда
СтрокаОшибок = ?(ПустаяСтрока(СтрокаОшибок),"",СтрокаОшибок + ", ") + СтрокаПоиска.ПредставлениеРеквизита;
Иначе
Запрос.УстановитьПараметр(СтрокаПоиска.ИмяРеквизита,ТекущаяСтрока[СтрокаПоиска.ИмяРеквизита]);
КонецЕсли;

КонецЦикла;

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

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Объект = Выборка.Ссылка.ПолучитьОбъект();
КонецЕсли;

КонецЕсли;

ОбъектНайден = Не Объект = Неопределено;
Если Не ОбъектНайден Тогда
Если НеСоздаватьНовыхЭлементов Тогда
Индикатор.Значение = Индикатор.Значение + 1;
Продолжить;
Иначе
Объект = Справочники[МетаданныеИсточника.Имя].СоздатьЭлемент();
КонецЕсли;

КонецЕсли;
ИначеЕсли РежимЗагрузки = 1 Тогда
//Объект = Источник.Добавить();
ОбъектНайден = Ложь;
ИначеЕсли РежимЗагрузки = 2 Тогда
Объект = РегистрыСведений[МетаданныеИсточника.Имя].СоздатьМенеджерЗаписи();
Для каждого КлючИЗначение Из ТекущаяСтрока Цикл

Если ИзмеренияРегистра.Свойство(КлючИЗначение.Ключ) Тогда
Объект[КлючИЗначение.Ключ] = КлючИЗначение.Значение;
КонецЕсли;

КонецЦикла;

Если Не ЗамещатьСуществующиеЗаписи Тогда
Объект.Прочитать();
ОбъектНайден = Объект.Выбран();
Иначе
ОбъектНайден = Ложь;
КонецЕсли;

КонецЕсли;

Для каждого КлючИЗначение Из ТекущаяСтрока Цикл

Если Не ОбъектНайден или Колонки[КлючИЗначение.Ключ].Пометка Тогда
Попытка
Объект[КлючИЗначение.Ключ] = КлючИЗначение.Значение;
Исключение
мСообщитьОбОшибке("Ошибка при установки значения реквизита """ + КлючИЗначение.Ключ + "" + ОписаниеОшибки());
Отказ = Истина;
Прервать;
КонецПопытки;
КонецЕсли;

КонецЦикла;

Если РежимЗагрузки = 0 Тогда
Если Не Отказ и ЗаписатьОбъект(Объект, ТекстыЯчеек) Тогда
Сообщить(?(ОбъектНайден,"Изменен","Загружен") + " элемент справочника: " + Объект.ссылка, СтатусСообщения.Информация);
Загружено = Загружено + 1;
Иначе
Сообщить("Объект не " + ?(ОбъектНайден,"изменен","загружен") + ". Элемент справочника: " + Объект + ".", СтатусСообщения.Важное);
КонецЕсли;
ИначеЕсли РежимЗагрузки = 1 Тогда

Если Не ОбработатьСобытиеПослеДобавленияСтроки(ОбъектИсточника, Объект, ТекстыЯчеек) Тогда
Отказ = Истина;
КонецЕсли;

Если Не Отказ Тогда
Сообщить("Добавлена строка: " + (Загружено + 1));
Иначе
Сообщить("При добавлении строки " + (Загружено + 1) + " возникли ошибки. ");
ЗаписыватьОбъект = Ложь;
КонецЕсли;

Загружено = Загружено + 1;

ИначеЕсли РежимЗагрузки = 2 Тогда
Если Не Отказ и ЗаписатьОбъект(Объект, ТекстыЯчеек) Тогда
Сообщить(?(ОбъектНайден,"Изменена","Добавлена") + " запись № " + НомерТекущейСтроки + ".");
Загружено = Загружено + 1;
Иначе
Сообщить("Запись не " + ?(ОбъектНайден,"изменена","загружена") + ". № записи: " + НомерТекущейСтроки + ".", СтатусСообщения.Важное);
КонецЕсли;
КонецЕсли;

Индикатор.Значение = Индикатор.Значение + 1;
ОбработкаПрерыванияПользователя();

КонецЦикла;
Сообщить("---------------------------------------------", СтатусСообщения.БезСтатуса);

Если РежимЗагрузки = 1 Тогда
Если ЗаписыватьОбъект и ЗаписатьОбъект(ОбъектИсточника) Тогда

Сообщить("Выполнена загрузка"+ ТекстВопросаИсточника, СтатусСообщения.Информация);
Сообщить("" +Загружено +" из "+ КоличествоЭлементов + " элементов.", СтатусСообщения.Информация);
Возврат Истина;
Иначе
Сообщить("Объект не записан: " + Объект + ".", СтатусСообщения.Важное);
Возврат Ложь;
КонецЕсли;
ИначеЕсли РежимЗагрузки = 0 Тогда
Сообщить("Выполнена загрузка"+ ТекстВопросаИсточника, СтатусСообщения.Информация);
Сообщить("" +Загружено +" из "+ КоличествоЭлементов + " элементов.", СтатусСообщения.Информация);
Возврат Истина;
ИначеЕсли РежимЗагрузки = 2 Тогда
Сообщить("Выполнена загрузка"+ ТекстВопросаИсточника, СтатусСообщения.Информация);
Сообщить("" +Загружено +" из "+ КоличествоЭлементов + " записей.", СтатусСообщения.Информация);
Возврат Истина;
КонецЕсли;

Иначе
Возврат Ложь;
КонецЕсли;