add specific item into last item for whole item based on where precede item

Hi
I want adding the item TML for each item doesn't precede items are (TR660,TMN,TTH) and add item TTN for each item precede item is TR660
I put the result in second sheet but I want in the same first sheet. this is dummy data . the real data can contain about 1000 items for 1000 rows
thanks

ARRAY formula in B2, copy down.

=IF(ISNUMBER(FIND("TR660",'Trial Tracker'!B2)),'Trial Tracker'!$B2&" TTN",IF(SUM(COUNTIF('Trial Tracker'!B2,{"*TR660","*TMN","*TTH"}))=0,'Trial Tracker'!$B2&" TML",'Trial Tracker'!$B2))

To enter ARRAY formula
Copy and paste the formula in cell
Press F2
Press Ctrl+Shift+Enter together
Excel covers the formula with {}.

Hi ABDELFATTA,

Try below code ...

Sub test()

Dim a: a = Sheets("Trial Tracker").[A1].CurrentRegion

For x = 2 To UBound(a)
   Select Case True
      Case a(x, 2) Like ["*TR660"]: a(x, 2) = a(x, 2) & " TTN"
      Case a(x, 2) Like ["*TMN"], a(x, 2) Like ["*TTH"]: a(x, 2) = a(x, 2)
      Case Else: a(x, 2) = a(x, 2) & " TML"
   End Select
Next

Sheets("Trial Tracker").[F1].Resize(UBound(a), UBound(a, 2)) = a 'change location of data

End Sub

You can just do it similar to the 2nd line shown below

Case a(x, 2) Like ["*TMN"], a(x, 2) Like ["*TTH"]: a(x, 2) = a(x, 2)

I don't think it works this way. However, if you have a many strings that you want to put them in an array, maybe the code can be re-written differently to loop through each element in the array

You can read more about the LIKE operator HERE

Edit: In fact, the square brackets in my code are meaningless after refreshing my memory reading the link above