Eliminar un registro de una base

[Hola 

Prueba con esto

Valora la respuesta para finalizar saludos!

Sub eliminar()
    col = "A" ' columna código
    codigo = "101"
    '
    Set r = Columns(col)
    Set b = r.Find(codigo, lookat:=xlWhole)
    If Not b Is Nothing Then
        'encuentra los datos y limpia la fila
    Rows(b.Row) = ""
    Else
    MsgBox "No existe en la base de datos"
    End If
End Sub