Transfer Duplicates Based On Matches In X Columns

I am working on a list of agents and I want to get rid of the duplicates. I know I could use conditional formating to highlight the duplicate names but it conditional formating won't allow me to find duplicates based on three cells in a row. My code below works to an extent but it misses some of the duplicates in the list and I don't know why. I have check the cells of the duplicates and they are an exact match.

Sub SearchDups1()
Dim rFnd1 As Excel.Range
Dim rFnd2 As Excel.Range
Dim iCount As Integer
Dim iEnd As Integer
Dim sAdr1 As String
iCount = 2
iEnd = WorksheetFunction.Match("zzzzzzzzzz", Sheet2.Range("D:D")) + 1
Do
Set rFnd1 = Sheet2.Cells(iCount, "D")
Set rFnd2 = Sheet2.Columns("D:D").Find( _
What:=rFnd1, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)..............