Macro para eliminar celdas y/o columnas especificas no ejecuta.

¿Qué error te marca?
¿Dónde tienes tus macros, en cada hoja o un modulo?

Buenas tardes Daniel:

Se encuentra en modulo diferentes, pero al ejecutar Sub DDJJ_Nuevo() no realiza ningún proceso, pero si realizo individualmente colocandome en la hoja que corresponde si ejecuta, creo que es por el If ActiveSheet.Index = 5 Then por que cada macro es diferente.

Espero me puedas ayudar, o a modificar la forma de eliminar datos por rango de columnas dependiente de una variable la ultima celda.

Saludos,

Pues si, no se ejecutan por que al estar activa una hoja al hacer la comparación de ActiveSheet. Index se anula la macro.
Quitale todas las comparaciones de If y End If y ya debería poder funcionar.

Hola Daniel:

Ahora dentro de este proceso tengo una macro adicional:

Sub Consecutivos()
UltLinea = Range("A" & Rows.Count).End(xlUp).Row 'captura el número de la ultima fila con datos
UltCelda = "E" & UltLinea 'muestra el número de la ultima fila con su letra de columna

Range("E9").Select
ActiveCell.FormulaR1C1 = "1"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C+1"
Range("E10").Select
Selection.AutoFill Destination:=Range("E10", UltCelda), Type:=xlFillDefault
Range("E10", UltCelda).Select
Range("E9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E9").Select
Application.CutCopyMode = False

End Sub

Esta debe procesar en la Hoja 8, pero como el botón lo tengo en la hoja 19 procesa aqui, que puedo hacer para indicar a esta macro que procese en la hoja 8 y no en la hoja 19 donde inició el proceso.
Agradezco de antemano su apoyo.

Saludos

Para más fácil solo puedes seleccionarla

Sub Consecutivos()
Sheets("Hoja8").Select 'aqui se selecciona la hoja
UltLinea = Range("A" & Rows.Count).End(xlUp).Row 'captura el número de la ultima fila con datos
UltCelda = "E" & UltLinea 'muestra el número de la ultima fila con su letra de columna
Range("E9").Select
ActiveCell.FormulaR1C1 = "1"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C+1"
Range("E10").Select
Selection.AutoFill Destination:=Range("E10", UltCelda), Type:=xlFillDefault
Range("E10", UltCelda).Select
Range("E9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E9").Select
Application.CutCopyMode = False
End Sub

Hola Daniel:

Entonces me indicas que solo coloque esto Sheets("Hoja8").Select al inicio de la formula para que no se ejecute en hoja donde me encuentro.

Gracias.

Así es, hay muchas formas pero hacerlo de otro modo es meterle mano a todo tu código. Avisa si queda.

Hola Daniel:

Si esta fórmula se repite en otras macros pero que se ejecuta en diversas hojas.

Algo así:

Macro1: Ejecuta en la hoja7

Sub prueba1()

call consecutivos

end sub

Macro2: Ejecuta en la hoja8

Sub prueba2()

call consecutivos

end sub

Macro3: Ejecuta en la hoja9

Sub prueba3()

call consecutivos

end sub

La siguiente variable Sheets("Hoja8").Select le colocaria al inicio de cada prueba o tengo que indicar en cada SUB CONSECUTIVOS(), entonces tendría varias consecutivos para cada prueba.

Espero me pueda comprender la consulta.

Saludos.