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