Hi Guys,

I have the following structure of a table (see attachment).
As you can see some rows are completly empty.
Want I would like to do now is delete these rows if they are empty by
using a macro.

File Attached: http://www.excelforum.com/attachment.php?postid=317210 (example.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

The easiest way its to record a macro and than edit it for future use.
The steps to take for your code:

1. Select a column.
2. Edit Go To Special Blanks
3. Delete Rows

--
sb
"chrismania" wrote in message
...
Hi Guys,

I have the following structure of a table (see attachment).
As you can see some rows are completly empty.
Want I would like to do now is delete these rows if they are empty by
using a macro.

File Attached: http://www.excelforum.com/attachment.php?postid=317210
(example.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Your attachment is not visible outside the excelforum.

Best to explain your problem in your posting.

Sub DeleteEmptyRows()
Dim rng as Range
Dim cell as Range
Dim rng1 as Range
set rng = Range(cells(1,1),cells(rows.count,1).End(xlup))
for each cell in rng
if application.CountA(cell.EntireRow) = 0 then
if rng1 is nothing then
set rng1 = cell
else
set rng1 = union(rng1,cell)
end if
end if
Next
if not rng1 is nothing then
rng1.EntireRow.Delete
End if
End Sub

Would be my guess

--
Regards,
Tom Ogilvy

chrismania wrote in message
...
Hi Guys,

I have the following structure of a table (see attachment).
As you can see some rows are completly empty.
Want I would like to do now is delete these rows if they are empty by
using a macro.

File Attached: http://www.excelforum.com/attachment.php?postid=317210
(example.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/