Hacer una macro para que valide si existe dato en una BD

Te anexo la macro

Sub Guardar()
'Por.Dante Amor
    Set h1 = Sheets("formulario")
    Set h2 = Sheets("BDC_RAW_DATA")
    '
    cedula = h1.Range("B1").Value
    If cedula = "" Then
        MsgBox "Captura un número de cédula", vbExclamation
        Exit Sub
    End If
    Set b = h2.Columns("L").Find(cedula, lookat:=xlWhole)
    If Not b Is Nothing Then
        MsgBox "DATO YA REGISTRADO INGRESE OTRO", vbExclamation
        Exit Sub
    End If
    '
    'Ingresar registros
    fila = h2.Range("L" & Rows.Count).End(xlUp).Row + 1
    h2.Cells(fila, "L") = cedula
    h2.Cells(fila, "D") = h1.Range("B3")        'división
    h2.Cells(fila, "E") = h1.Range("B4")        'grupo de personal
    '...
    'continuar con los demás datos
    '
    MsgBox "Registro guardado", vbInformation
    '
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

[Hola 

te paso la macro

Sub validar()
Set h1 = Sheets("Formulario")
Set h2 = Sheets("BDC RAW DATA")
'
ced = h1.[B1]
If ced = "" Then
MsgBox "Ingrese un cédula"
Exit Sub
End If
Set b = h2.Columns("L").Find(ced, lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "La cédula ya existe"
End If
End Sub