Borrar Filas

hola, Angelo !

tengo la siguiente macro que es para borrar un grupo de las 4 ultimas filas con datos pero me da error ...

1) necesitas "borrar" (el contenido de) las ultimas 4 filas?... o eliminar completamente las 4 filas -???-

2) analiza esta parte de tu codigo:

'Selecciono filas a borrar
Range("A65536").Select
Selection.End(xlUp).Select
Range("fila & : & Activecell.Offset(0,-3)").Select
Selection.Delete

y observa lo siguiente:

a) la ultima celda seleccionada (Selection.End(xlUp).Select) es la fila "n" de la columna A

b) y en la siguiente instruccion le "dices" a la macro: -> Range("fila & : & Activecell.Offset(0,-3)").Select
1) TODO esta delimitado por comillas dobles: -> "fila & : & Activecell.Offset(0,-3)"
2) tu variable fila ha dejado de ser variable y se convierte en parte de la cadena de texto
3) igual sucede con el objeto "ActiveCell.Offset(0,3)" <= es parte de una cadena de texto
4) si la celda (ultima) seleccionada esta en la columna A...
como le pides que "regrese" 3 columnas "a la izquierda" ??? => Offset(0,-3)

comentas cual es el arreglo (real) de la tabla donde necesitas eliminar/borrar las 4 ultimas celdas ?

saludos,
hector.