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