I need to find a solution for simple broplem:

I have huge imported sheet (62000 rows) where I have to remove empt
rows using value from column A.
This code is working when I give smaller range like A1:A2000 put no
when I using in area method A:A

Sub del_emtyrows()

Application.ScreenUpdating = False
Columns("A:A").Select ' this will work when I use Range A1:A2000
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

When macro is over the sheet is totally blank!
I have data in colums A to D, and there is empty rows like 1 to
between data.

Mark

--
mab
-----------------------------------------------------------------------
maba's Profile: http://www.excelforum.com/member.php...fo&userid=2636
View this thread: http://www.excelforum.com/showthread.php?threadid=39640