Converting Rows to Columns

I have a sheet that has related data that is in one row but several other pieces of data are in a column. For example, the Customer Number, Name, and Contact are in one row, but the Contact Title, Contact Phone, and Contact Email are in separate rows beneath the Contact. I would like all data to be in one row but am not sure how to do this without copy/paste. There are a total of 6000+ rows so copy/paste is not very efficient.

There are some records which may have 3 rows of data and others may have 4, depending if a phone or email is missing.

How do I get the data into the format I want?

I've included a sample of how the sheet currently looks and how I would like it to be.

Thanks!

This macro will do it. Add a sheet to your workbook called OUTPUT and then this macro will move over the data from your SHEET1.

Please Login or Register  to view this content.

The logic here is that if there are 4 rows, then phone number and email are included and are in the correct order, email last.

If only 3 rows, it will test the last letter of the 3rd row, if it's a number, it will go in the phone column, a letter will go in the email column.

Hello mschlenker,

Welcome to the Forum!

Here is another method of convert the data into rows. The attached workbook has the macro added along with a button a "Sheet1" to run it. The results are appended to "Sheet2".

Please Login or Register  to view this content.