كود vba pour transposer données en colón en lignes

Bonjour étant nouveau dans le code j'aurai besoin d'aide pour mettre une Macro me permettant de transpose des datans de trouvant dans la Colonne A et qui comporte des lignes vides. الهدف هو نقل البيانات من الخلية B2 واستئناف النقل في B3 بمجرد وصول الماكرو إلى الخلية المرئية، بالإضافة إلى ذلك.

مثال في العمود A1: 

ج1: بواسون
ج2: أوسو
ج3: كرابود
A4: فيديو
A5: كرسي
ج6: الحافلة
ج7: رين
ج8: فلور
A9: فيديو
ج10: الروم
ج11: المنسق
A12: فيديو

شكرا على مساعدتك 
Xform