Excel別Book間のコピーをし、貼り付け時にずらしたい

Question

###前提・実現したいこと
別ExcelBook間のコピペをしたい
手順１
コピー元ファイルのシート1のある範囲をコピー
コピー先のシート１のA2に貼り付ける
手順２
コピー元ファイルのシート2のある範囲をコピー
コピー先のシート１のB2に貼り付ける
・・・以下コピー元ファイルに存在するシートの数だけ繰り返す

ある範囲：開始場所は同じで最終行の場所が変化
コピー元のシート名：毎回異なる

###発生している問題・エラーメッセージ
見よう見まねで下記コードを作成しましたが、
コピー元のシート１のある範囲をコピーし
コピー先のシート１に変数分貼り付け
コピー元のシート２のある範囲をコピーし
コピー先のシート１に変数分貼り付け
この様な状況になってしまいます。
同じ数字が並び、上書きされている状況です。

下記コードは試運転の為、シートの変数(K)は２つ、ずらす分の変数(i)は１０としてます。

###該当のソースコード
Sub test1の繰り返しシート別()
Dim k As Long
For k = 1 To 2
Dim i As Long
For i = 0 To 10

Workbooks("コピー元.xlsx").Worksheets(k).Activate
Range("a1", Range("a1").End(xlDown)).Copy ThisWorkbook.Worksheets("sheet1").Cells(2, i + 1)
Next
Next
End Sub

###試したこと```
色々と試してお手上げ状態でここに書かせて頂きました。

###補足情報(言語/FW/ツール等のバージョンなど)
VBA
Excel2013

Answer 1

おそらく今の動きはコピー元ブックの1シート目のコピー内容をコピー先ブックのSheeet1のA2～J2まで貼り付けて、コピー元ブックの2シート目のコピー内容をコピー先ブックのSheeet1のA2～J2まで貼り付ける(上書きしてしまう)、というものではないでしょうか。

コピー元ブックのn番目のシートの内容をコピー先ブックのcells(2, n)に貼り付ける、と言うことですよね。
なので、変数iと変数iのループ部分が不要です。
コピー＆ペースト部分は以下の通りとなります。

Range("a1", Range("a1").End(xlDown)).Copy ThisWorkbook.Worksheets("sheet1").Cells(2, k) 

Comments

[pandatati]

ynakano様
回答、有難う御座いました。
教えて頂いたコードで上手く出来ました。
変数を同じにする点、考えつきませんでした。

[pandatati]

すみません。
複数列を選択して、貼り付け先のセル列を一個飛ばしで貼り付け
これを応用でやってみたのですが、
Range("a1:B1", Range("a1:B1").End(xlDown)).Copy ThisWorkbook.Worksheets("sheet1").Cells(2, k + 1)
これではBとCにシート１を貼り付けた後、CとDにシート２を貼り付けてしまいます。
何かアイディア頂けますでしょうか？

[ynakano]

シート1の場合cells(2,1)
シート2の場合cells(2,3)
シート5の場合cells(2,9)
…
と考えていくと

cells(2, k * 2 - 1)

だと思います。

[pandatati]

ynakano様

度重なるご回答、本当に有難う御座います。
上手く走りました。
これからは見よう見まねではなく、しっかりと勉強していきたいと思います。