Trapazar datos de fila a columna Macro

Hola, necesito ayuda con un macro para ordenar unos datos. Básicamente tengo varios contactos y cada uno tiene nombres, auto, mail, y mensaje. El tema es
que están todos puestos en fila y necesito ordenarlos todos en columnas como se
muestra el ejemplo de la derecha.

Dejo el link con el archivo para que tenga una idea, y copio a continuación una foto con el ejemplo.

Son más de 100 contactos.

Muchas gracias!

Saludos

Link:https://dl.dropboxusercontent.com/u/52689719/Datos%20Arreglar.xlsx