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

Try

Code:

---

Sub imptype()
   
    On Error Resume Next
    With Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row)
        .SpecialCells(4).FormulaR1C1 = "=r[-1]c"
        .Value2 = .Value2
    End With
   
End Sub

---