how can I delete just empty rows of a sheet

with the following code I can just delete empty cells and after that the
rows are not the same as before (have different values).

Sub emptyCellsDelete()
sheet1.Cells.Range("A6:M155").SpecialCells _
(xlCellTypeBlanks).Delete shift:=xlUp

End Sub

See your other thread

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


"p. panter" wrote in message ...
how can I delete just empty rows of a sheet

with the following code I can just delete empty cells and after that the rows are not the same as before (have different values).

Sub emptyCellsDelete()
sheet1.Cells.Range("A6:M155").SpecialCells _
(xlCellTypeBlanks).Delete shift:=xlUp

End Sub