ocultar y borrar filas

hola grupo !!

tengo la siguiente rutina que utlizo para ocultar las filas que en
determinado rango tienen valor cero\ (la rutina se ejecuta al activar la
hoja del libro)

Dim Celda As Range, Temp As Variant
For Each Celda In Range("i12:i32,i41:i128")
Temp = Celda
If IsError(Temp) Then
' cambia la siguiente linea a *False* si NO quieres ocultar celdas
*con error* '
Celda.EntireRow.Hidden = True
ElseIf Celda <> 0 Then
Celda.EntireRow.Hidden = False
Else: Celda.EntireRow.Hidden = True
End If
Next

mi problema, son dos:

tengo un libro con dos hojas, en la primera se encuentran las facturas
pendientes de rendicion con sus detalles (ordenadas por nº de factura), la
segunda hoja es un formulario que se utiliza para rendir a la casa central
las facturas que ya han sido cobradas\ en el rango a14:a33, de esta
planilla, ingreso el nº de comprobante y automaticamente "trae" los datos
de las facturas\

1º) lo que tendría que hacer es ocultar las filas del rango a14:a33 de la
planilla rendición que tienen el valor 0 (cero) en la columna a (en ese
mismo rango\ pero obviamente si siempre tendria que haber una fila sin
ocultar, pues si se ocultan todas no es posible ingresar el numero de
factura\ entonces, x ej. al principio NO deberia estar oculta la fila 14,
pero si el resto, al introducir un valor en la celda a14, debria mostrarse
la fila 15 (para eventualmente poder introducir un valor en la cela a15);
una vez que se ingresa un valor en la fila a15 al darle enter deberia
mostrarse la fila 16... y así sucesivamente hasta la 33 que es la última del
rango

2º) al imprimir esta hoja debería borrar las filas de la hoja facturas que
coinciden con los numeros de facturas ingresados...

espero haber sido claro para que alguien me pueda ayudar con esto\

desde ya muchas gracias por la ayuda que me puedan dar .

un abrazo a todos

dorian+