Eliminar última fila

Hola, me respondo yo mismo:

He encontrado una macro de KL que me soluciona el
el problema,

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

Un saludo


"ricard" escribió:

Hola
Que orden he de dar para que mediante una macro
elimine la ultima fila escrita.

Un saludo