VBA EXCEL 別ブックへのデータ転記

Question

コピー元とコピー先は同じ列数です。
望む結果は、画像の例でいきますと、コピー元Ｂ列の２，３，４行に、１，３，９の数値がありますが、これらの数値を
コピー先のＢ列の２，３，４行に転記し、もしコピー先に数値がすでにあれば、最後尾の次の行から転記していくように
したいのです。
Ｂ列からＡＬ列まで同じ動作を繰り返し処理する予定で、Ｂ列で試行すると、
１，３，９と転記せず、Ｂ２セルでデータがカチャカチャと回転して、最終の９だけが転記されていくような状態です。
この状態を解消して、望む結果にするにはどうしたらよいのか、、ご教授いただきたく、よろしくお願い申し上げます。

画像を追加しております。
元のデータを先のデータの最後尾に、ボタンクリックで追加していきたいのです。

いつもお世話になっております。
さて、今、現行作業のブックから別のブックに転記しようと以下のように転記構文を書いてみました。確かに転記してくれますが、挙動がおかしいのです、、常に、Ｂ２セルに全データが反映されてカチャカチャと動いて、そのあと、最終行がずらっと並ぶような状態です。ようやくなんとか転記構文作ったのですが、自助ではこれ以上進むことができず、ご教授頂ければ本当にありがたいです、どうかよろしくお願いいたします。

Sub ボタン89_Click()
 Dim i As Long
 　　Dim x As Long
 　　　　Dim wb As Workbook
 　　　　　　Set wb = Workbooks.Open(ThisWorkbook.Path & "\ルーレットデータ.xlsx")

　　　　For i = 2 To ThisWorkbook.Worksheets("回転数").Cells(Rows.Count, maxcolumn).End(xlUp).Row
　　　　　　　For x = 1 To Workbooks("ルーレットデータ").Worksheets("data回転数").Cells(Rows.Count,_  
        　　　　　　　maxcolumn).End(xlUp).Row
 
   　　　　　　ThisWorkbook.Worksheets("回転数").Range("B" & i).Copy_
   　　　　　　　Workbooks("ルーレットデータ").Worksheets("data回転数").Range("B" & x).Offset(1)
　　　　　　　Next
　　　　Next
End Sub

Comments

[DreamTheater]

どのように転記したいのですか？
３×３位の表で良いのでコピー元シートとコピー先シートの転記イメージを追加してください。
インデントも分かり辛いです。

[kohan]

失礼いたしました、画像を追加させていただきます。

[DreamTheater]

転記元と転記先は同じセル位置ですか？
それ（仕様）が明記されていないと判断できませんよ。
期待している結果はこうなんだけど、こうなっちゃいますって説明が必要です。
いまはこうなっちゃいますしか書かれてません。

[kohan]

失礼いたしました。修正いたします。

[kohan]

この度は幾度も連絡くださいましてありがとうございました。
なんとか自力で解決できましたが、、まだようやくここまでという感じです。
ご迷惑おかけいたしましたが、今後ともよろしくお願いいたします。

Answer 1

すいません、お騒がせして申し訳なかったのですが、以下のようにコードを修整したら、望む結果になりました、。
　たったこれだけで、、とおもうのですが、最終行から下に、、というのは、こうすればできたのですね。。もっと難しいのかと思って、悩みまくりましたが、、
ただ、やっぱり、重くなるのですね、、

Dim i As Long
 Dim n As Long
 Dim wb As Workbook
 Set wb = Workbooks.Open(ThisWorkbook.Path & "\ルーレットデータ.xlsx")
 
 For maxcolumn = 2 To 39
  For i = 2 To ThisWorkbook.Worksheets("回転数").Cells(Rows.Count, 　
　　　　　　maxcolumn).End(xlUp).Row
      　　n = Workbooks("ルーレットデータ").Worksheets("data回転数").Cells(Rows.Count, 
　　　　　　　　maxcolumn).End(xlUp).Row + 1
 
   　　　　　ThisWorkbook.Worksheets("回転数").Cells(i, maxcolumn).Copy Workbooks("ルーレッ
　　　　　　　　　トデータ").Worksheets("data回転数").Cells(n, maxcolumn)
　Next
　　Next
End Sub
コード

Comments

[DreamTheater]

自己解決として書きましょう。