Macro para eliminar ultimas celdas

Hola FeCel,

Prueba esto:

Sub test()
Dim UltCelda As Range
On Error Resume Next
Set UltCelda = Intersect( _
Cells.Find("*", Cells(1), xlValues, xlWhole, xlByRows, _
xlPrevious).EntireRow, _
Cells.Find("*", Cells(1), xlValues, xlWhole, xlByColumns, _
xlPrevious).EntireColumn)
If Not (UltCelda Is Nothing Or UltCelda.Row = 1) Then _
UltCelda.EntireRow.Delete
End Sub

Saludos,
KL


"FeCel" wrote in message
news:

Necesito ayuda para una macro que elimine la ultima celda de un rango de
filas. El numero de filas es variables, y la posicion de la ultima celda
varia en cada fila (puede estar en la columna d,e,f,g o h).
La lista se inicia en A2.
Muchas gracias.
FeCel