Remove Duplicate

Sub RemoveDuplicates_jeet()
Dim rng As Range
Set rng = Sheet1.UsedRange
rng.RemoveDuplicates Columns:=3, Header:=xlYes
End Sub