تفضل يا أخي  
في هذه الحالة انت محتاج لكود VBA لتنفيذ العملية 
كالتالي 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Val(Cells(Target.Row, "B")) > 1 Then
  MsgBox ("ÊßÑÑ ÇáÑÞã:  " & Target.Value & " ...ÇÑÌæ ÊÛííÑ ÇáÞíãÉ")
  Cells(Target.Row, Target.Column).Select
  Selection = ""
  
  Exit Sub
  
End If
End Sub
 
 
مرفق ملفك بعد اجراء التعديلات اللازمة علية 
Duplicated_numbers.rar