Find/Replace Question

Let's start with this.

Sub test1()
     
    For Counter = 2 To Range("B" & Rows.Count).End(xlUp).Row
         If Cells(Counter, 2) = "SALAME" Then Cells(Counter, 4) = Replace(Cells(Counter, 4), "AURORA ALIM.", "AURORA")
    Next

End Sub