Sub example()
Dim i&
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(i, 5).Value Like LCase("*пример*") Then
If Not Cells(i + 1, 5).Value Like LCase("*пример2*") Then
 Cells(i + 1, 5) = "Пример2 и что-то ещё"
 Cells(i + 1, 6) = Cells(i, 6).Value * 100
 Else
 End If
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

=СМЕЩ(A1;ПОИСКПОЗ(F2;A2:A20;0);0;СЧЁТЕСЛИ(A2:A20;F2);4)

Private Sub TextBox1_Change()
    Dim X, i, txt As String, lt, s As String
    If Len(TextBox1.Text) = 0 Or bu Then Exit Sub
    txt = TextBox1.Text
    lt = Len(TextBox1.Text)
    X = Sheets("Прайс с поиском").Columns(5).SpecialCells(2).Value
    For i = 1 To Sheets("Прайс с поиском").Cells(Rows.Count, 5).End(xlUp).Row
        If InStr(1, UCase(Sheets("Прайс с поиском").Cells(i, 5)), UCase(TextBox1.Value)) > 0 Then s = s & X(i, 1) & "~" 'формирует по сочетанию букв в любом месте текста
     Next i
    ListBox1.List = Split(s, "~")
   End Sub