Modificacion en macro

[AndryAC]

Buenos Dias,

Ayer no obtuve respuestay probare hoy de nuevo,

Gracias a la ayuda del forista y amigo "pajuma" tngo esta macro que me hace que en una lista de codigo de cuentas con su nombre de cta, me elimine unas cuentas que tengo en otra lista.

Ahora bien, la macro funciona casi perfecta solo que me elimina el formato de las celdas de abajo y unas formulas ocultas que se encuentran en ellas (las celdas de abajo). En el archivo adjunto, la primera pestaña llamada "Gastos estimados por el áre (2" es el archivo antes de activar la macro, el la pestaña siguiente llamada "Gastos estimados por el área" es como me deja la macro el archivo (visualicen desde las fila 63 para abajo que me borro las formulas que tenia oculta con formato en la primera pestaña) y la 3era pestaña llamada "Ctas. para elminar" se encuentran las cta que elimina la macro de la primera pestaña.

He aqui el codigo:

Sub ElminarCtasNoPresupuestadas()

Rem by Macro antonio

On Error Resume Next

Dim H1, H2, x1 As Long, Rango As Range

Dim Total As Long, Celda As Range, Hora

Set H1 = Sheets("No presupuestados por el área")

Set H2 = Sheets("Ctas. para elminar")

Hora = Time

H2.Select: H2.Range("A2").Select

Application.ScreenUpdating = False

For x1 = 1 To H1.Range("C" & Rows.Count).End(xlUp).Row

Total = Total + 1

If Total Mod 10000 = 0 Then

Application.StatusBar = Hora & " Procesando Control de asistencia " & _

Total & " de un total de " & _

H1.Range("E" & Rows.Count).End(xlUp).Row & " "

End If

Set Celda = H2.Range("A2:A" & H2.Range("A" & Rows.Count).End(xlUp).Row).Find _

(What:=H1.Range("E" & x1).Value, LookIn:=xlValues)

If Not Celda Is Nothing Then

If Rango Is Nothing Then

Set Rango = H1.Rows(x1)

Else

Set Rango = Application.Union(Rango, H1.Rows(x1))

End If

End If

Next

H1.Select

Application.StatusBar = "Eliminando ....."

If Not Rango Is Nothing Then Rango.Delete

Application.StatusBar = Hora & " Listo " & Time

Application.StatusBar = ""

End Sub

Lo que deseo es que no me elimine las formulas ni el formato de las celdas de abajo, gracias por su atencion y espero sus comentarios!

Ahorasi.zip