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

[Admin]

Try

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