clear same values in one col for each id

Originally Posted by porucha vevrku

Try ... in the meantime you can have a big coffee ... : )

Option Explicit

Sub aaa()
    Dim r&: r = 2
    Application.ScreenUpdating = False
    Do Until Trim(Cells(r, "A").Value) = ""
        If Cells(r + 1, "A").Value = Cells(r, "A").Value Then Cells(r + 1, "D").Value = ""
        r = r + 1
    Loop
    Application.ScreenUpdating = True
End Sub

thanks alot!