blank rows:program that deletes blank rows

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

Thanks

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" <[email protected]> wrote in
message news:[email protected]...
>
> 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

F5>Special>Blanks>OK

Edit>Delete>Entire Rows>OK


Gord Dibben MS Excel MVP

On Mon, 19 Jun 2006 04:52:44 -0500, phil2006
<[email protected]> wrote:

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