Ayuda para implementar macro en excel para que elimine de la base de datos el valor de una celda

TE adjunto una rutina de ejemplo, extraída de mi manual '400Macros' en español.
Tendrás que adaptar seguramente algunas referencias.
La rutina busca en un rango el valor de la celda activa al momento de ejecutarla. De encontrarse ese valor, se borrará la fila.
(Ver otras maneras de establecer el dato a buscar, en las Notas al pie)
Sub eliminando()
Dim rango As String
Dim dato As String
Dim midato As Object
Dim fila As Byte
'el contenido de la celda será el dato a buscar
dato = ActiveCell.Value
'rango donde se efectuará la búsqueda
rango = "H1:H15"
'se busca en el rango indicado
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
'si midato No es Vacío?. es decir si la búsqueda es exitosa.....
If Not midato Is Nothing Then
'se borra la fila
midato.EntireRow.Delete
Else
'si el dato no fue encontrado aparecerá un mensaje indicándolo
MsgBox "No se encuentra el dato en el rango establecido"
End If
Set midato = Nothing
End Sub
Saludos y no olvides finalizar la consulta
Elsa
*** Manual '400Macros' desde: