Transform data in column to rows

I've attached a spreadsheet with example data. I would like to use a macro if practical to change the format of the data which is organized into columns to having all data for each entry in a single row. I tried recording a macro, but haven't been able to customize it to automate the handling of the hundreds of contacts in the list.

Hi
try the macro in the attached file
Ravi

Please Login or Register  to view this content.

Charlize

Thank you. Both solutions worked well. Awesome... it'll save hours of my time. I guess I should learn VB sometime.