別のブックへ貯蓄転記する方法を教えてください。

質問

請求書をエクセルで作ることになりました。

請求書自体はできたのですが、
請求書内容を別のブックに貯蓄保存がどうしてもできません。

ブック「A」のM1～R1のみが転記対象。VLOOKUPを使ってデータをひいています。
ブック「B」のA3～F3に貯蓄＆転記したいと考えています。

色々なサイトを見て、下記のコードを作ったのですが、貯蓄できません・・・
（上書保存のような状態になります）

初心者のため、何が間違っているのかわかりません。
ご教授いただければと思います。
よろしくお願いいたします。

Sub SAVE()
Const Dest = "C:\Users\P\Desktop\Y\B.xlsx"
Dim fromR As Long
Dim fromRMax As Long
Dim toR As Long
Dim toRMax As Long
'??????
toRMax = Workbooks("B.xlsx").Worksheets("Sheet1").Range("A65536").End(xlUp).Row
fromRMax = Workbooks("A.xlsm").Worksheets("Sample").Range("A65536").End(xlUp).Row
'??
For fromR = 2 To fromRMax
'Date
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 1).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 13).Value
'No.
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 2).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 14).Value
'Sub
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 3).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 15).Value
'13%
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 4).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 16).Value
'5%
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 5).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 17).Value
'Total
Workbooks("B.xlsx").Worksheets("Sheet1").Cells(toRMax + fromR - 1, 6).Value = _
Workbooks("A.xlsm").Worksheets("Sample").Cells(fromR, 18).Value
Next fromR

End Sub

回答No.1

wret615

転記元の行が２行目からfromRMax行目までで、転記先の行がtoRMax+fromR-1の計算結果で、列が固定いうことね？

ほいだら、手作業か何かで転記先のデータを移動させない限り、そら毎度そこに上書きされてまうで。

溜めるものは、どこに保存しときたいん？

補足

やっぱり上書きされてしまうコードだったんですね・・・
初心者なので、ネットで調べた物のシート名等を自分で変更しただけだったので、何が何やらわからなくて・・・

溜める物はシート名「Ｂ」に追加していきたいです。
転記したい内容はシート名「Ａ」のM1～R1です。

どのようなコードにすると追加できるようになるか、教えていただけるととても助かります。