VBA Macro To Fill Missing Items In A Sequence Of Values Based On Criteria

[tinamiller1]

I am trying to change the cells in my spreadsheet and created a macro but it is not working quite right. I had to update this because I confused the person that responded and hope other will view this because my macro is still not working. I might have to repost. There are blanks between the data have. So, I need to read the first item and change that cell as well as the following cells until I reach the next item. If that item is like, it will continue. If not, then it will paste the other label and fill in the blanks with that until it gets to the next. There are only 2. I hope this makes sense.

Macro

'macro ten
'implant update

Sub imptype()
Dim c As Range
For Each c In Range("J1:J" & Range("J" & 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
AIP






Standard




AIP





Standard




AIP




DATA Need
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: 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: PPR Tied to Invoice
Implant Pass-through: Auto Invoice Pricing (AIP)
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: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)
Implant Pass-through: Auto Invoice Pricing (AIP)