[Spirosgr]

Καλησπέρα
Βασίλη καλώς ήρθες στην παρέα μας.
Ο πιο κάτω κώδικας VBA θα πρέπει να επικολληθεί στο φύλλο (συμβάν Change)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Len(Target.Value) > 0 Then
        If Evaluate("Countif(A:A," & Target.Address & ")") > 1 Then
            MsgBox "Η Εγγραφή «" & Target.Value & "» υπάρχει ήδη και θα διαγραφεί.", _
            vbInformation, "Διαπιστώθηκε Διπλότυπο!"
            Range(Target.Address).ClearContents
        End If
    End If
End Sub

Αποθήκευσε το βιβλίο σαν .xlsm για να μπορεί να εκτελέσει εντολές.
Ο κώδικας εκτελείται αν στην στήλη Α υπάρχει διπλότυπο
Αφού δείξει μνμ μετά διαγράφει την διπλότυπη εγγραφή.
Αν θέλετε άλλη στήλη αλλάξτε στην γραμμή

If Evaluate("Countif(D:D," & Target.Address & ")") > 1 Then

και στην γραμμή

If Target.Column = 4 And Len(Target.Value) > 0 Then

τα γράμματα και τον αριθμό με τον αντίστοιχο αρ. στήλης που θέλετε πχ για D στήλη = D:D & 4 κλπ.