Delete duplicate rows macro needed - a little complicated

[WebAnalytics]

Please see below: need a macro that will delete the first two entire rows of duplicate order id's and keep the third

Any help?

Order Id
Total	-	-	-	-	$24,893.66	305	$81.62
36051480	-	-	-	-	$817.38	1	$817.38
36051480	$0.00	-	-	-	$817.38	1	$817.38
36051480	$0.00	$817.38	NULL	$0.00	$817.38	1	$817.38
36053154	-	-	-	-	$749.50	1	$749.50
36053154	$0.00	-	-	-	$749.50	1	$749.50
36053154	$0.00	$749.50	NULL	$0.00	$749.50	1	$749.50

<tbody>
</tbody>

 

[Momentman]

Just a few questions:

1. Are there always 3 entries for each ORDER ID, I mean a set of duplicates and 1 unique entry
2. Do the cells with dashes "-" only have values on the unique entry's line

 

[texasalynn]

try this

Sub DeleteDups()
Dim i, LR, RCnt As Long
LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    RCnt = WorksheetFunction.CountIf(Columns("A"), Cells(i, "A"))
    RCnt2 = WorksheetFunction.CountIf(Columns("F"), Cells(i, "F"))
        If (RCnt > 1 And Cells(i, "C") = "-") And _
            (RCnt2 > 1 And Cells(i, "E") = "-") Then
            Rows(i).Delete
        End If
Next i
MsgBox "Done"
End Sub

 

[WebAnalytics]

momentman,

to answer your question

1. Yes

2. not sure what you mean