This is one method

Sub abc()
Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i).Value = "" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Su

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com