Macros -- данные из csv файла надо вставить в Excel - VB

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

Есть большой macros где данные из csv файла надо вставить в Excel
Мне надо дописать маленькую часть где:
если есть TOTAL OTHER REVENUE тогда оставить и OTHER REVENUE
если нет TOTAL OTHER REVENUE тогда удалить OTHER REVENUE
Вот пишу так, но почему-то OTHER REVENUE всегда удаляется -- когда есть TOTAL OTHER REVENUE и когда его нет.

i = 
      
   (Cells(i, ), , ) <>  
 
              (Cells(i, ), , ) =  
                     DeleteRow(CStr(i) +  + CStr(i))

  i = i + 
  i = iRows

Решение задачи: «Macros -- данные из csv файла надо вставить в Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">For</font> i = iRows <font color="blue">To</font> <font color="darkblue"><b>1</b></font> <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
<font color="blue">If</font> <font color="blue">Mid</font>(Cells(i, <font color="darkblue"><b>8</b></font>), <font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>5</b></font>) = <font color="teal">"TOTAL"</font> <font color="blue">Then</font> Rows(i + <font color="darkblue"><b>1</b></font>).Insert
<font color="blue">Next</font>
iRows = ActiveCell.SpecialCells(xlLastCell).row

                        