И опять Excel 2016. Индекс находится за границами массива

Excel = Новый COMОбъект("Excel.Application");
	Excel.Application.Workbooks.Open(ИмяФайлаНаСервере);
	Excel.DisplayAlerts = 0;
	ExcelSheet = Excel.Sheets(1);
	ВсегоСтрок = ExcelSheet.Cells.SpecialCells(11).Row;
	ВсегоКолонок = ExcelSheet.Cells.SpecialCells(11).Column;
	ExcelSheetRange = ExcelSheet.Range(ExcelSheet.Cells(НачСтрока, 1), ExcelSheet.Cells(КонСтрока, ВсегоКолонок));
	Данные = ExcelSheetRange.Value.Выгрузить();
	Попытка
//Остановка начинается с первой прочинанной колонки
		Артикулы 		= ?(кАртикул <= 0, Неопределено, Данные[кАртикул - 1]);;
		Наименования 	= ?(кНаименование <= 0, Неопределено, Данные[кНаименование - 1]);
		ШтрихКод 		= ?(кШтрихКод <= 0, Неопределено, Данные[кШтрихКод - 1]);
		Единицы		 	= ?(кЕдИзмерения <= 0, Неопределено, Данные[кЕдИзмерения - 1]);
		СтавкиНДС	 	= ?(кСтавкаНДС <= 0, Неопределено, Данные[кСтавкаНДС - 1]);
		Количества 		= ?(кКоличество <= 0, Неопределено, Данные[кКоличество - 1]);
		Цены 			= ?(кЦена <= 0, Неопределено, Данные[кЦена - 1]);
		Сумма 			= ?(кСумма <= 0, Неопределено, Данные[кСумма - 1]);
	Исключение
		Сообщить(ОписаниеОшибки());
		Данные = Неопределено;
	КонецПопытки; 
	Объект.ДанныеЗагрузки.Очистить();
	Для Сч = 0 По КонСтрока - НачСтрока Цикл //- 1 Цикл
		Если Данные = Неопределено Тогда
			Прервать;
		КонецЕсли; 	
		СтрокаТЧ = Новый Структура("Артикул, Наименование, ШтрихКод, ЕдиницаИзФайла, СтавкаНДСИзФайла, Количество, Цена, Сумма"); 
		СтрокаТЧ.Артикул 				= ?(Артикулы = Неопределено, "", СокрЛП(Артикулы[Сч]));
		СтрокаТЧ.Наименование 			= ?(Наименования = Неопределено, "", СокрЛП(Наименования[Сч]));
		СтрокаТЧ.ШтрихКод 				= ?(ШтрихКод = Неопределено, "", СокрЛП(ШтрихКод[Сч]));
		СтрокаТЧ.ЕдиницаИзФайла 		= ?(Единицы = Неопределено, "", СокрЛП(Единицы[Сч]));
		СтрокаТЧ.СтавкаНДСИзФайла 		= ?(СтавкиНДС = Неопределено, "", СокрЛП(СтавкиНДС[Сч]));
		СтрокаТЧ.Количество 			= ?(Количества = Неопределено, "", ЧисткаСтроки(Количества[Сч]));
		СтрокаТЧ.Цена 					= ?(Цены = Неопределено, "", Цены[Сч]);
		СтрокаТЧ.Сумма 					= ?(Сумма = Неопределено, "", Сумма[Сч]);
		Если НЕ ЗначениеЗаполнено(СтрокаТЧ.Артикул) И НЕ ЗначениеЗаполнено(СтрокаТЧ.Наименование) Тогда
			Продолжить;
		КонецЕсли; 
		СтрокаЗагрузки = Объект.ДанныеЗагрузки.Добавить();
		ЗаполнитьЗначенияСвойств(СтрокаЗагрузки, СтрокаТЧ);
	КонецЦикла; 
	Данные = Неопределено;
	ExcelSheetRange = Неопределено;
	ВсегоСтрок = Неопределено;
	ExcelSheet = Неопределено;
	Excel.Application.Workbooks(1).Close();
	Excel.Quit();
	Excel = Неопределено;