Código para evitar ingresar datos repetidos desde modulo

Como hago para cargar ese macro

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
dato = Target.Value
contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato)
If contarsi > 1 Then
MsgBox "el dato ya existe no se permiten duplicados"
Target.Select
Target.ClearContents
Exit Sub
End If
End If
End Sub

Desde un módulo, al ejecutarlo me indique que se está duplicando los datos.