Delete duplicate cells in column and everything after

I want to go through D6:D45 and once one of the values equals a value that already pasted delete from that value through the rest of the values

Try:

Sub DeleteDups()
    Set Rng = Range("D6:D45")
    Rng.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End Sub