Работа с excel ячейками - VB

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

Возникли трудности при работе с ячейками excel файла. Файл постоянно меняется. Но есть определенные ячейки имена которых известны(и присутствуют всегда), допустим "ОТ и ПБ". Как только ее находим то начинаем анализировать последующие строчки ДО одного из имен итд.

                    Листинг программы
                
For i% = 1 To 110
       For j% = 1 To 15
                x = xlsSh.Cells(i%, j%).Value
              If xlsSh.Cells(i%, j%).Value = "ОТ и ПБ" Or "ЭБ и РП" Or "АН и СМ" Then
               
               Do Until xlsApp.Cells(i%, j%).Value = "ОТ и ПБ" Or "ЭБ и РП" Or "АН и СМ"
               
                 'анализируем строчки между этими названиями
              
               Loop
               Do Until xlsApp.Cells(i%, j%).Value = "ОТ и ПБ" Or "ЭБ и РП" Or "АН и СМ"
               
                 'анализируем строчки между этими названиями
              
               Loop
              
               End If
 
      Next j
      Next i

И так нужно пройти весь файл до конца проанализировав строчки между каждыми разделами

Решение задачи: «Работа с excel ячейками»

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

xlDown