Transposer plusieurs lignes en une seule colonne

Bonjour,
je suis débutante en vba,je souhaite créer une macro qui me permet de transposer plusieurs lignes en une seule colonne qui se trouve dans la deuxième feuille de mon classeure .
j'ai essayé avec le code suivant,mais il ne m'a pas donner les résultats souhaitées
Dim i As Integer, j As Integer
j = 0
For i = 0 To Cells(Rows.Count, 12).End(xlUp).Row - 1
Sheets("f1").Select
Range("H2:K2").Offset(i).Select
Selection.Copy
Sheets("f2").Select
Range("A8").Offset(j).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False


j = j + 1
Next i


merci de m'aidez s'il vous plait