Операция с excel - VB

Формулировка задачи:

Здрям! Подскажите, пожалуйста, решение в данной ситуации: Сотрудник делает выгрузку, притом делает так, как масть ляжет, а ложится она криво, и столбцы в файле местами постоянно меняются. Вопрос в том, как найти определенные названия столбцов (они известны), а другие столбцы удалить? Мне в любом случае переводить данную программу в VB из VBA, поэтому макрос и не пишу.

Решение задачи: «Операция с excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub DelUnNeed()
Dim oCell As Range
For Each oCell In Rows(1).Cells
   If oCell.Value = "Art Block Cd" Or oCell.Value = "vSlsQty Colli" Then oCell.EntireColumn.Delete
Next
End Sub