If none of the entries are missing an element of the address

Sub ClearBlanks()
Columns("A:D").Specialcells(xlBlanks).Delete
End Sub

--
Regards,
Tom Ogilvy


"Paul" wrote in message
...
I have a workbook with the contact information showing in several rows,
for
example in the first Column and first Row (A1) it shows the "Name" then on
the second column it shows the "Address" on the B2 and "Phone Number" on
C3
and so on. As a result for every contact information it occuplies several
rows. How to write an vba code to clean up the information so that for
each
of the conatct information the information showing on each of the column
is
the same row number as the "Name" column and perhaps remove all the blank
rows at the end of the process? Thanks.

Example:

Name Address Phone Fax
John Doe
123 Street
123-456-789

456-444-7845

Jane Doe
369-456-7899
456 Street
236-456-4578