Try one more,


Code:
--------------------

Sub RemoveBlank()
Dim myRngRow As Long, i As Long

myRngRow = Range("A252").End(xlUp).Row '252= to end on this row

For i = myRngRow To 10 Step -1 '10= to start from this row
If Cells(i, 1).Value = Empty Then 'i= your row & 1= your column (i.e= 'A')
Cells(i, 1).Delete Shift:=xlUp
End If
Next i

End Sub

--------------------


HTH
ilyaskazi


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=474106