Hi,

determing the last (used) row with

Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
No_Rows = LastCell.Row

seems not to work, as soon I am also deleting some content of the sheet.

Does anybody know what the problem is (or what would be a better solution)?

Kind regards, AXEL