УТ Создание длкумента Установка цен номенклатуры

Сделал процедуру импорта цен номенклатуры из Excel
Но записывается в документ только последние значение

Процедура УстЦенНомНажатие(Элемент)
Попытка
    xl = ПолучитьCOMОбъект(,"Excel.Application");
Исключение
    Сообщить("Файл для импорта не открыт" );
    Возврат
КонецПопытки;
    ВсегоСтрок = xl.Cells.CurrentRegion.Rows.Count;
    ВсегоКолонок = xl.Cells.CurrentRegion.Columns.Count;
    Документ = Документы.УстановкаЦенНоменклатуры;
    Прогресс = ЭлементыФормы.Индикатор;
    Прогресс.МинимальноеЗначение=0;
    Прогресс.МаксимальноеЗначение = ВсегоСтрок;
        СпрНоменклатура=Справочники.Номенклатура;
    СпрТипЦен=Справочники.ТипыЦенНоменклатуры;
    ЦЗ=СпрТипЦен.НайтиПоНаименованию("Закупочная");
    ЦО=СпрТипЦен.НайтиПоНаименованию("Оптовая");
        ЦР=СпрТипЦен.НайтиПоНаименованию("Розничная");
        НовДок = Документ.СоздатьДокумент();
    НовДок.Дата=ТекущаяДата();
    НовДок.ТипыЦен.Добавить().ТипЦен=ЦЗ;
    НовДок.ТипыЦен.Добавить().ТипЦен=ЦО;
    НовДок.ТипыЦен.Добавить().ТипЦен=ЦР;
        СпрЕд=Справочники.ЕдиницыИзмерения;
    шт=СпрЕд.НайтиПоНаименованию("шт");
    СпрВалюты = Справочники.Валюты;
    usd=СпрВалюты.НайтиПоНаименованию("usd");
        НовДок.УстановитьНовыйНомер();
Для row = 1 По ВсегоСтрок Цикл
Товар=СпрНоменклатура.НайтиПоНаименованию((xl.Cells(row,3).Value));
ЦенаЗак = (xl.Cells(row,7).Value);
ЦенаОпт =  (xl.Cells(row,8).Value);
ЦенаРозн =  (xl.Cells(row,9).Value);
НоваяСтрока= НовДок.Товары.Добавить();
НоваяСтрока.Номенклатура=Товар.Ссылка;
НоваяСтрока.Цена=ЦенаЗак;
НоваяСтрока.ТипЦен=ЦЗ.Ссылка;
НоваяСтрока.Валюта=usd;
НоваяСтрока.ЕдиницаИзмерения=шт;
НоваяСтрока.Цена=ЦенаОпт;
НоваяСтрока.ТипЦен=ЦО.Ссылка;
НоваяСтрока.Цена=ЦенаРозн;
НоваяСтрока.ТипЦен=ЦР.Ссылка;
Прогресс.Значение = Прогресс.Значение + 1;
КонецЦикла;
НовДок.Записать();
КонецПроцедуры