Sub MyProcedure(rngSerach As Range, strSearchValue, ParamArray arrValuesToAdd() As Variant)
    Dim c As Range
    Dim cnt As Long
    Dim i As Long
    
    cnt = Application.CountIf(rngSerach, strSearchValue)
    Set c = rngSerach( 1 )
    For i =  1  To cnt
        Set c = rngSerach.Find(strSearchValue, c)
        c.Offset(,  1 ).Resize(, UBound(arrValuesToAdd)) = arrValuesToAdd
    Next i
End Sub

Sub test()
    MyProcedure [A1:A20], "*test*",  10 ,  20 ,  30 ,  40 ,  50 
End Sub

Sub MyProcedure()
    Dim strSearchValue As String
    Dim arrValuesToAdd() As Variant
    Dim rngSerach As Range
    Dim c As Range
    Dim cnt As Long
    Dim i As Long
    
    strSearchValue = "*test*"
    arrValuesToAdd = Array( 10 ,  20 ,  30 ,  40 ,  50 )
    With ActiveSheet
        Set rngSerach = .Range(.Cells( 1 , "A"), .Cells(.Rows.Count, "A").End(xlUp))
        'On Error GoTo ErrHand
        'Set rngSerach = Intersect(.UsedRange, .Range("A:A"))
    End With
    
    cnt = Application.CountIf(rngSerach, strSearchValue)
    Set c = rngSerach( 1 )
    For i =  1  To cnt
        Set c = rngSerach.Find(strSearchValue, c)
        c.Offset(,  1 ).Resize(, UBound(arrValuesToAdd) +  1 ) = arrValuesToAdd
    Next i
'ErrHand:
End Sub