Delete rows if they are empty

[chrismania]

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)

 

[steve]

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

 

[Tom Ogilvy]

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