Remove duplicates from specific rows

[lunatu]

Hi,

Im using this macro to remove duplicates:

Sub RemoveDuplicates()

Dim rng As Range

Set rng = ThisWorkbook.Sheets("Sales Person 1").UsedRange

rng.RemoveDuplicates Columns:=5, Header:=xlYes

End Sub

The problem is that it is deleting the whole row, inc data validation and formulas in empty cells. I want to remove only cells in columns D:L. Any idea how to fix the makro to remove duplicates but not to effect on empty rows in other columns?

EDIT: sorry about the misleading header, meant:

"Remove duplicates from specific cells"​

 

[Fluff]

How about

Sub RemoveDuplicates()

Dim rng As Range
With ThisWorkbook.Sheets("Sales Person 1")
   Set rng = Intersect(.UsedRange, .Range("D:L"))
End With
rng.RemoveDuplicates Columns:=2, Header:=xlYes

End Sub

 

[lunatu]

Works perfectly - thanks a lot! ?

 

[Fluff]

You're welcome & thanks for the feedback.