macros: como eliminar uno o varios registros

Recibí el día de hoy esta consulta por mail: como hacer, mediante macros, que se eliminen registros de una tabla. La macro le deberá solicitar al usuario el dato, buscar y borrar dicho registro.
Voy a mostrar dos ejemplos de como hacerlo: utilizando el método Find de VBA y otro con un bucle. Al primero lo recomiendo cuando necesitemos eliminar un solo dato, al segundo, cuando existan varios registros a eliminar.
[+/-] Ver el resto / Ocultar

Entonces: tenemos la siguiente tabla:

En el código que veremos a continuación, le solicitaremos a nuestros usuarios que ingresen un valor del campo "código", luego lo buscaremos a lo largo de la columna B y, de estar, lo eliminaremos.

1) Método Find: este es el que utiliza Excel para buscar, cuando vamos al menú Edición / Buscar. Si a este método lo ejecutamos y el valor NO está, arroja un error. Esto es conveniente saberlo de antemano, así colocamos un capturador de errores y procedemos en consecuencia.

Aquí les dejo el código bien comentado:

Sub ELIMINA()Dim MENSAJE As Variant
Dim Fila As Long

'solicitamos al usuario el dato que desea eliminar:
MENSAJE = Trim(InputBox("Ingrese el codigo del registro a eliminar"))
'nos vamos a la hoja en donde tenemos la tabla:
Sheets("CONCEPTOS").Activate

If MENSAJE = "" Then
    'si el usuario no ingresó ningún valor, salgo:
    Exit Sub
ElseIf MsgBox("Desea Eliminar el Registro: " & MENSAJE, vbInformation + vbYesNo, "Sistema") = vbYes Then
    'selecciono la columna B
    On Error Resume Next
    Columns("B:B").Select
    'utilizo el metodo Find de excel para buscar el registro. Si existe,
    'almacenará el numero de fila en la que se encuentra en la variable Fila
    Fila = Selection.Find(What:=MENSAJE, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Row
    If Err.Number = 0 Then
        'si NO hay errores, entonces elimino el registro.
        Cells(Fila, 1).EntireRow.Delete
        'aviso a la hora que fué eliminado:
        MsgBox "El registro " & MENSAJE & " fué correctamente eliminado a las " & Now, vbInformation
        [b1].Select
    Else
        MsgBox "El valor: " & MENSAJE & " no existe", vbExclamation, "Atención"
        Exit Sub
    End If
End If
End Sub

el código arriba descripto nos arroja el siguiente resultado:

si presionamos "aceptar", el registro (toda la fila) que contiene 20101013 será eliminado

Ahora analicemos dos argumentos del método Find arriba utilizado: LookIn y LookAt

LookIn:= con xlValues le indicamos que busque valores. con xlFormulas, que busque dentro de las funciones que puedan estar presentes en la hoja.

LookAt:= xlWhole: que busque la frase exacta, completa. con xlPart busca "por partes", es decir, encontrará la palabra "ferrocarril" si solo ingreso "ferro". ¿se entiende?

Ambos parámetros deberán ser modificados de acuerdo a las necesidades de nuestro proyecto.

2) Con bucle:

Sub ELIMINA_CON_BUCLE()
Dim MENSAJE As Variant
Dim Fila As Long
Dim UltFila As Long
Dim Cont As Long
'solicitamos al usuario el dato que desea eliminar:
MENSAJE = Trim(InputBox("Ingrese el codigo del registro a eliminar"))
'nos vamos a la hoja en donde tenemos la tabla:
Sheets("CONCEPTOS").Activate
Cont = 0

If MENSAJE = "" Then
    'si el usuario no ingresó ningún valor, salgo:
    Exit Sub
ElseIf MsgBox("Desea Eliminar el Registro: " & MENSAJE, vbInformation + vbYesNo, "Sistema") = vbYes Then
    'guardo en una variable la ultima fila ocupada de la tabla, en la columna B
    UltFila = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
    'ahora recorro todas las celdas desde la segunda fila hasta la ultima:
    For Fila = 2 To UltFila
        If Trim(Cells(Fila, 2).Value) = MENSAJE Then
            'si el valor coincide, elimino:
            Cells(Fila, 2).EntireRow.Delete
            'y le resto 1, ya que el rango a recorrer se vió disminuido
            UltFila = UltFila - 1
            'sumo uno a Cont, para al final avisar si se eliminaron registros:
            Cont = Cont + 1
        End If
    Next Fila
End If

'si Cont es mayor a cero, entonces se eliminaron registros:
If Cont > 0 Then
    MsgBox "Se procedió a la eliminación de " & Cont & " registro/s", vbInformation
Else
    MsgBox "No se encontraron valores para eliminar", vbExclamation
End If
End Sub

Solo resta agregar que, en lugar de eliminar toda la fila, podríamos "vaciar" su contenido, reemplazando:

Cells(fila, columna).entirerow.delete

por

Cells(fila, columna).entirerow.clearcontents

Si optamos por "vaciar" no deberemos incluir dentro del bucle la linea: UltFila = UltFila - 1, ya que la cantidad de celdas del rango a recorrer no se ve alterada. (ya que no eliminamos la fila)