code vba pour transposer données en colonnes en lignes

Bonjour étant nouveau dans le codage j'aurai besoin d'aide pour pour mettre une macro me permettant de transposer des données de trouvant dans la colonne A et qui comporte des lignes vides. L'objectif est de transposer les données à  partir de la cellule B2 et de recommencer la transposition en B3 dès que la macro arrive sur la cellule vide, ainsi de suite.

Exemple dans la colonne A1: 

A1: Poisson
A2: Oiseau
A3: Crapaud
A4: Vide
A5: Chaise
A6: Bus
A7: Reine
A8: Fleur
A9: Vide
A10: Rhum
A11: Ordinateur
A12: Vide

Merci pour votre aide 
Xform