I need to find a solution for simple broplem:

I have huge imported sheet (62000 rows) where I have to remove empty rows using value from column A.
This code is working when I give smaller range like A1:A2000 put not 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 3 between data.

Marko