Удаление столбцов ексель по условию из 1с 8.2

  Excel = Новый COMОбъект("Excel.Application");
			Workbook = Excel.Workbooks.Open(ПолноеИмяФайла);
			Лист = Workbook.Sheets(1);
			ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
			ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
                       
        Список = Новый СписокЗначений;
	Список.Добавить("Наименование товаров");
	Список.Добавить("Количество");
	Список.Добавить("Единица измерения");
	Список.Добавить("Цена");
	Список.Добавить("НДС");
	Список.Добавить("Стоимость поставки с учётом НДС");
	Список.Добавить("Стоимость поставки");
	Список.Добавить("Сумма НДС");
                     
                       Для Строка = 1 по ВсегоКолонок цикл
				 СтрокаПоиска = Список.НайтиПоЗначению(СокрЛП(Лист.Cells(1,Строка).Value));
				 Если  СтрокаПоиска = Неопределено  Тогда
					 Лист.Columns(Строка).Delete();	
				КонецЕсли;
			КонецЦикла;