Option Explicit
Sub Dupes()
Dim i As Long, j As Long
Dim lrA As Long, lrB As Long
lrA = Range("A" & Rows.Count).End(xlUp).Row
lrB = Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = lrB To 2 Step -1
For j = 2 To lrA
If Range("B" & i) = Range("A" & j) Then
Range("B" & i).Delete
End If
Next j
Next i
Application.ScreenUpdating = True
MsgBox "completed"
End Sub