Delete rows if they are empty

[chrismania]

Hi Guys,
already have asked that questions. But your proposals did not work.
Thanks anyway.
I have the following problem.
I have a table with the following structure:

Name Surname Adress Number
Name 1 Surname 2 Adr1 1
(this row
is empty for ex.)
Name 2 Surname 2 Adr1 2

......

Some rows are empty. I want to delete the rows if they are empty. So
the structure should look like this:

Name Surname Adress Number
Name 1 Surname 2 Adr1 1
Name 2 Surname 2 Adr1 2

Do you have an idea for an easy code?

Cheers and thanks Christoph

 

[steve]

This was found in Google search:

Sub DeleteBlanks()
'' Deletes all rows that have blanks in Column A .
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[chrismania]

Brilliant!!
Thanks it works perfectly!
Cheers Chris

 

[Dianne]

You could select all your cells then sort your data. All the blank rows
will be sorted to the end.

 

[Tom Ogilvy]

That deletes the rows if column A has an empty cell, whether the row is
empty or not - if that works, great. But it is not what you described.