clear same values in one col for each id

Hi I'm trying to clear same values in one column for the same auction id but it's clear all the same values in one column, and I have more than 11000 data:

Private Sub clearallunits_Click()
Application.ScreenUpdating = False
    Dim N As Long, allunits As Long, rlook As Range
    
    N = Cells(Rows.Count, "A").End(xlUp).Row
 
    For allunits = N To 2 Step -1
        Set rlook = Range(Cells(allunits - 1, "D"), Cells(1, 1))
       If Application.WorksheetFunction.CountIf(rlook, Cells(allunits, "D")) > 0 Then
            Cells(allunits, "D").Clear
        End If
    Next allunits
   
    Application.ScreenUpdating = True
End Sub

my attachment is (sheet1 my data) and (sheet2 the result that I need) any idea for that?

You won't have time for a shot of espresso with this...

Private Sub clearallunits_Click()
    
    Dim v As Variant, i As Long
    
    v = Range("A1").CurrentRegion.Value
    
    For i = UBound(v, 1) To 2 Step -1
       If v(i, 1) = v(i - 1, 1) Then v(i, 4) = ""
    Next i
    
    Range("D1").Resize(UBound(v, 1)).Value = Application.Index(v, 0, 4)
    
End Sub