book1シート1のデータを別bookシートに移す

質問

a1シート1のデータ1,2（データ1.5列G行～18列G行,～9000個、データ2.25列G行～38列G行,～9000個）を
b1シート1,c1シート1に移行したいのですが、
a1シート1のデータは、9000個と9000個とします。
b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。
このとき移行したいb1シート1(5列G行～18列G行,～16000個）は最終行からでてしまいます。
でてしまう分をc1シート1(5列G行～18列G行,～2000個）に書き移したいと思っています。
分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。
このとき、データ1とデータ2の連結は、空白行なしです。
b1シート,c1シートは、a1シートとは、別bookです。
こんなときのマクロを教えていただければと思い質問しました。
マクロ記録でしましたが、うまくできませんでした。
コードを教えていただけませんか。
よろしくお願いします。
ｍ2010です。

回答No.1

Nouble

済みません
縦が列でアルファベット
横が行で数字
で、再度説明して頂けませんか？

補足

a1シート1のデータ1,2（データ1.5行G列～18行G列,～9000個、データ2.25行G列～38行G列,～9000個）を
b1シート1,c1シート1に移行したいのですが、
a1シート1のデータは、9000個と9000個とします。
b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。
このとき移行したいb1シート1(5行G列～18行G列,～16000個）は最終列からでてしまいます。
でてしまう分をc1シート1(5行G列～18行G列,～2000個）に書き移したいと思っています。
分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。
このとき、データ1とデータ2の連結は、空白行なしです。
b1シート,c1シートは、a1シートとは、別bookです。
こんなときのマクロを教えていただければと思い質問しました。
マクロ記録でしましたが、うまくできませんでした。
コードを教えていただけませんか。
よろしくお願いします。
ｍ2010です。　　
a1シート1
/ABCDEFGHI--------MHJ
1データ1
2------9000個
3
4
5------○○～～～～～○○
6------○○～～～～～○○
7------○○～～～～～○○
.
.
.
17-----○○～～～～～○○
18-----○○～～～～～○○
19
.
.
23データ2
24-----9000個
25-----○○～～～～～○○
26-----○○～～～～～○○
.
.
.
37-----○○～～～～～○○
38-----○○～～～～～○○
39

b1シート1
/ABCDDEFGHI------MHJ-------WQP
1データ1,データ2
2-------16000個
3
4
5-------○○～～～～○○～～～～～○○
6-------○○～～～～○○～～～～～○○
7-------○○～～～～○○～～～～～○○
.
.
.
17------○○～～～～～○○～～～～○○
18------○○～～～～～○○～～～～○○
19
データ1,データ2の継ぎ目に空白なし。
マクロの記録では、
Sub Macro1()
'
' Macro1 Macro
'

'
Range("G5").Select
ActiveSheet.Paste
Range("MHJ5").Select
ActiveSheet.Paste
Range("F4").Select
End Sub

c1シート1
/ABCDEFGHI
1データ2の残り
2------2000個
3
4
5------○○～～○○
6------○○～～○○
7------○○～～○○
.
.
.
17-----○○～～○○
18-----○○～～○○
19
この質問は、難しいのでしょうか。
書き方がわるいのでしょうか。
よろしくお願いします。