VB code Macro needed to transpose data from columns to rows

I have a list of addresses and contact information. All I want is to transpose data from columns to rows step by step. Please see the attached file and screen shot (Before and After).

Attachment 194293


Eg: This is what I have

Mkt cap ACC Address
51.35B 12345 1635 W POINT POST LN
Menlo Park 86302
WYOMISSING, PA 196100000


This is what I need

Mkt cap ACC Address1 Address2 Address3 City State Zip Code
51.35B 12345 1635 W POINT POST LN Menlo Park 86302 WYOMISSING PA 19610-0000

Any help is appreciated Please let me know if you have any questions... Please help

Thanks !