Поиск ячейки с заданным значением в таблице EXEL - VB

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

Задача:
в таблице в каждой строке необходимо найти ячейку с определенным текстом (выделена зеленым цветом) и данные из ячейки, которая находиться правее через одну (выделена желтым) перенести в другую таблицу (имееться ввиду сформировать новую таблицу в виде столбика с этим значением)
И так необходимо обработать все строки.
Количество строк каждый раз может быть разным
Рисунок прилагается

Решение задачи: «Поиск ячейки с заданным значением в таблице EXEL»

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

                            For y = 1 To NumRows
       For x = 1 To NumCells
      
    
        If Cells(y, x).Value = "Text_poiska" Then  'поиск ячейки с значением Text_poiska текст любой, у меня искало L-cd/m²
            Cells(y, x).Interior.ColorIndex = 6       'покрасим найденные ячейки в yellow color
                       
            Cells(y, 23).Value = Cells(y, x).Value      'найденную ячейку скопируем в столбик 23 - это W столбик 
            Cells(y + 1, 23).Value = "zagolovok"            'внизу столбика - заголовок  zagolovok
            Cells(y, 24).Value = Cells(y, x + 2).Value    'ячейка, которая находится на две позиции правее искомого текста копируется в столбик 24
            Cells(y + 1, 24).Value = "Mittel"             'заголовок столбика

        End If
         Next
Next

                        