Finding duplicates in a column, prompt user then delete the current one

Hey Winon,

Try this and see if it is what you are after?

Option Explicit
Sub d()
    Dim Mbox As String
    Dim LR As Long, i As Long, found As Range
    Application.ScreenUpdating = False
     On Error Resume Next
        LR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Set found = Range("a:a").Find(what:=Cells(i, "b"), LookIn:=xlValues, LookAt:=xlWhole)
          If found <> vbNullString Then
            If Not found Is Nothing Then
                  Mbox = MsgBox("Duplicate Found, do you want to delete duplicate", vbYesNo, "Duplicate")
              If Mbox = vbYes Then
                Range(Cells(i, 1), Cells(i, 9)).ClearContents
              Else
                Mbox = vbNo
              Resume Next
              End If
            End If
          End If
    Next i
    
    Set found = Nothing
    Application.ScreenUpdating = True
End Sub