Hi Peter

Use the function I use on this page
http://www.rondebruin.nl/copy1.htm

See also this page
http://www.contextures.com/xlfaqApp.html#Unused


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Peter Ostermann" wrote in message ...
Hi NG,

Last_Row = Sheets("Data").Cells.SpecialCells(xlCellTypeLastCe ll).Row

sometimes result points to an empty row below the last data-filled row.
Any hints what can be the cause? Which formula gives the correct result
if the last data-filled row is searched for (avoiding a loop to that point).
Thanks in advance.

Regards
Peter Ostermann