Macro to delete blank rows

[Jim]

I have text in Column A1:A2000 that has lots of blank rows
that I need deleted. I would like to compact all the data
so I don't have to scroll down so far.

Thanks
Jim

 

[Tom Ogilvy]

sub DeleteRealBlanks()
On Error Resume Next
Range("A1:A2000").SpecialCells(xlBlanks).EntireRow.delete
On Error goto 0
End Sub

 

[Jorge Rodrigues]

See Ron de Bruin's answer at:
http://groups.google.com/groups?q=delete+blank+rows+*excel*&hl=en&lr=&ie=UTF
-8&c2coff=1&selm=OYezTxiUDHA.2040%40TK2MSFTNGP11.phx.gbl&rnum=3
Jorge

 

[Ron de Bruin]

Hi Jim

On Error Resume Next 'In case there are no blank rows
Range("A1:A2000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

If you do this for a whole column be carfull with the SpecialCells limit
http://support.microsoft.com/default.aspx?scid=kb;en-us;832293

David have a example om his site to avoid problems
http://www.mvps.org/dmcritchie/excel/delempty.htm

The sub is named del_COLA_empty()

 

[Frank Kabel]

Hi
see:
http://www.xldynamic.com/source/xld.Deleting.html