Excelで複数行複数列の項目を縦1列に並べる場合のアレ

こんなデータを

ロゴタイプ　　　　　キズナ　　　　　　　エピファネイア
イスラボニータ　　　ワンアンドオンリー　トーホウジャッカル
ドゥラメンテ　　　　ドゥラメンテ　　　　キタサンブラック

こうして、こうじゃ

ロゴタイプ
キズナ
エピファネイア
イスラボニータ
ワンアンドオンリー
トーホウジャッカル
ドゥラメンテ
ドゥラメンテ
キタサンブラック

ってやるときのVBA。

Sub 並び替え()
Set st1 = Sheets("Work")
Set st2 = Sheets("Work2")
For i = 1 To st1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To st1.Cells(i, Columns.Count).End(xlToLeft).Column
n = n + 1
st2.Cells(n, 1) = st1.Cells(i, 1)
st2.Cells(n, 1) = st1.Cells(i, j)
Next
Next
End Sub