código vba pour transposer données en colonnes en lignes

Bonjour étant nouveau dans le codage j'aurai besoin d'aide 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 to from the cellule B2 et de recomeçar a transposition in B3 dès que la macro chega na cellule vide, insi de suite.

Exemplo na coluna A1: 

A1: Poisson
A2: Oiseau
A3: Crapaud
A4: Vídeo
A5: Espreguiçadeira
A6: Ônibus
A7: Rainha
A8: Flor
A9: Vídeo
A10: Rum
A11: Ordenador
A12: Vídeo

Obrigado pela vossa ajuda 
Xform