Deleting duplicates differently

[Craig1]

Hi All,
I have the code below that works perfectly to delete rows that are duplicated.
Is it possible to change the code so it deletes from the top down instead of the usual bottom up. This is because sometimes the duplicates that are lower down the imported list are updated and do have more info than the original.
So deleting downwards would be the best option but I'm not sure if this can be done and how?

Private Sub CommandButton22_Click()
LR = Cells(Rows.Count, "B").End(xlUp).Row
For i = LR To 2 Step -1
If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "B").Value) > 1 Then
Rows(i).EntireRow.Delete
End If
Next i

End Sub

Thanks in advance

Craig.

 

[Ruddles]

Presumably you're aware for the reason to delete from the bottom up, yes? If you go from the top down, you have to adjust your row pointer whenever a row is deleted so it doesn't skip over lines which move up as the result of the row above them being deleted.

Try this:-

For i = 2 To LR
  If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "B").Value) > 1 Then
    Rows(i).EntireRow.Delete
    i = i - 1
  End If
Next i