I am trying to change the cells of a 935 row worksheet but it keeps changing everything to the same thing. My macro is:

Code:
'macro fifteen
'implant update
Sub imptype()
Dim c As Range
For Each c In Range("l2:l" & Range("l" & Rows.Count).End(xlUp).Row)
    c = IIf(UCase(c) = "AIP", "Implant Pass-through: Auto Invoice Pricing (AIP)", "Implant Pass-through: PPR Tied to Invoice")
Next
End Sub
DATA HAVE
imptype
AIP
Standard
Standard
Standard
Standard
AIP
AIP
AIP
Standard
AIP
Standard
AIP
DATA Need
imptype
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: PPR Tied to Invoice
Implant Pass-through: Auto Invoice Pricing (AIP)