Eliminar datos de una base, debe cargar los datos del tbox y después eliminarlos de la base.

Agrega otro botón en tu userform para buscar. Primero capturas el Id, presionas el botón buscar para desplegar los datos, después presionas el botón eliminar.

Pon el siguiente código en tu form

Private Sub CommandButton1_Click()
'Por.Dante Amor
    'Eliminar por Id
    '
    If id.Value = "" Then
        MsgBox "Introduce un ID"
        id.SetFocus
        Exit Sub
    End If
    '
    'establece en el objeto b el resultado de buscar en la columna A
    Set h = Sheets(1)
    Set b = h.Columns("A").Find(id.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        'si lo encuentra, elimina
        h.Rows(b.Row).Delete
        MsgBox "Registro eliminado"
        id.Value = ""
        nombre.Value = ""
        cedula.Value = ""
        fecha.Value = ""
        id.SetFocus
    Else
        'si no lo encuentra
        MsgBox "El Id no existe"
    End If
End Sub
'
Private Sub buscar_Click()
'Por.Dante Amor
    'Buscar por Id
    '
    If id.Value = "" Then
        MsgBox "Introduce un ID"
        id.SetFocus
        Exit Sub
    End If
    '
    'establece en el objeto b el resultado de buscar en la columna A
    Set h = Sheets(1)
    Set b = h.Columns("A").Find(id.Value, lookat:=xlWhole)
    If Not b Is Nothing Then
        'si lo encuentra
        nombre.Value = h.Cells(b.Row, "B")
        cedula.Value = h.Cells(b.Row, "C")
        fecha.Value = h.Cells(b.Row, "D")
    Else
        'si no lo encuentra
        MsgBox "El Id no existe"
    End If
End Sub

.

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

.

Avísame cualquier duda

.

gracias por respuesta solo que el código me elimina toda la fila pero solo debo eliminar datos. porque debo conservar siempre uno de ellos para ser reutilizado

¿Y qué datos quieres borrar?

quiero que se borre la cédula, nombre, fecha, y se conserve el código. Igual la búsqueda me funciono perfecto, claro que la estoy haciendo por cédula

Cambia esta línea:

h.Rows(b.Row).Delete

Por estas:

h.cells(b.row, "B") = ""
h.cells(b.row, "C") = ""
h.cells(b.row, "D") = ""

sal u dos