I have a table of data, every few rows one is blank, is there a program
that deletes blank rows?

Thanks


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=553145

Sub DeleteRows()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = iLastRow to 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"phil2006" wrote in
message ...

I have a table of data, every few rows one is blank, is there a program
that deletes blank rows?

Thanks


--
phil2006
------------------------------------------------------------------------
phil2006's Profile:
http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=553145

Manually..........

Select Column A

F5SpecialBlanksOK

EditDeleteEntire RowsOK


Gord Dibben MS Excel MVP

On Mon, 19 Jun 2006 04:52:44 -0500, phil2006
wrote:


I have a table of data, every few rows one is blank, is there a program
that deletes blank rows?

Thanks