Вывод строк в VBA - VBA (48692)

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

Есть код макроса который позволяет ввести в окошко часть слова, и далее если в колонке "B2" есть совпадения, он выводит полностью предложение (наименование) в колонку "M2". Помогите добить код так, что бы он выводил не одно предложение (наименование), а списком. Вывести все наименования у которых есть совпадения с введеным ранее части слова.

Sub Find_n_Highlight()
    On Error Resume Next: Err.Clear
    Dim ra As Range, cell As Range, res, txt$, v, pos&
    res = InputBox("Введите текст, который необходимо подсветить в таблице", "Поиск и подсветка текста", "диз")
    If VarType(res) = vbBoolean Then Exit Sub
    txt$ = Trim(res): If Len(txt) = 0 Then Exit Sub
    Set ra = Range([B2], Range("B" & Rows.Count).End(xlUp))
    Application.ScreenUpdating = False
    ra.Font.Color = 0: ra.Font.Bold = 0
 
    For Each cell In ra.Cells
        pos = 1
        If cell.Text Like "*" & txt & "*" Then
            arr = Split(cell.Text, txt, , vbTextCompare)
            If UBound(arr) > 0 Then
                       Sheets("Результат").Range("M2") = cell
                    pos = pos + Len(txt)
            End If
        End If
    Next cell
End Sub

Решение задачи: «Вывод строк в VBA»

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

                             dim i& : i=1'где-то в самом верху
..
           If UBound(arr) > 0 Then
                       i=i+1
                       Sheets("Результат").Range("M" & i) = cell
                    'pos = pos + Len(txt)'это зачем?
            End If
                        