Hi, All
I have copy the code and modify as below, seem it work but, can't stop when the cell is empty.?
can u help which part's was marking wrong,
Thanks
Range("A1").Select
Do Until IsEmpty(ActiveCell)
Do While ActiveCell = ActiveCell.Offset(1, 0)
ActiveCell.EntireRow.Delete
Loop
ActiveCell.Offset(1, 0).Select
Loop
End Sub
|