Code help please

[biznez1]

This code is only deleting what the duplicate entry is, how can i make it to delete the row?

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 & " is a duplicate entry. It will be removed.", vbExclamation, "Data Entry Editor"
Range(Target.Address).ClearContents

End If

End If

End Sub