マクロの修正をお願いします。

質問

エクセルのマクロに関する質問です。

今開いてるブックの『Aシート』に転送ボタンを作成します。これとは別に『Bシート』を作り、『Aシート』の2列目からAA列目までと、『Bシート』の2列目からW列目までのデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内の『マクロ』というブック、『1シート』ならびに『2シート』の名前のシートにセルB9～,C9～,D9～…といったように毎日転送(コピー)しようと思います。
イメージとしては以下の通りです。

【5/3】
『Aシート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
↓[転送ボタン]
『1シート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
【翌日5/4】
『Aシート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
5/4　　 佐藤 8：30　　068912
↓[転送ボタン]
『1シート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
5/4　　 佐藤 8：30　　068912

5/5以降も下の行に毎日『Aシート』『Bシート』に入力したデータを『1シート』『2シート』に転送(コピー)し保存します。
その際、転送先はシート保護をしておきたいのです。

Sub Macro1()
Dim GYOU As Long
Dim 様式1 As Worksheet, 様式2 As Worksheet
Dim 様式A As Worksheet, 様式B As Worksheet

With ThisWorkbook
Set 様式A = .Worksheets("様式A")
Set 様式B = .Worksheets("様式B")
End With
With Workbook.Open(Filename:="C:\共有\マクロ.xlsx")
Set 様式1 = .Worksheets("様式1")
Set 様式2 = .Worksheets("様式2")
様式1.Unprotect
様式2.Unprotect
様式A.Unprotect
様式B.Unprotect
様式A.Range("B16:AA2000").Copy
様式1.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
様式B.Range("B16:W2000").Copy
様式2.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
様式1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
様式2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
様式A.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
様式B.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Close SaveChanges:=True
End With
MsgBox "『マクロブック』へ" & vbCrLf & "データ転送しました。"
End Sub

この様なマクロを組んでみましたが、転送ボタンを押した際転送先の『様式1』『様式2』シート共に保護がかかったままデータがされるものの最初のデータ（5/1）から当日分（5/4）全てが張り付けられてしまいます。
【翌日5/4】
翌日5/4】
『Aシート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
5/4　　 佐藤 8：30　　068912
↓[転送ボタン]
『1シート』
日付　　名前　　 時刻　　データ　　　…
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
5/1 　　田中　　7：30　　534986
5/2　　 太田　　13：00　 691324
5/3 鈴木　　14：00 143985
5/4　　 佐藤 8：30　　068912

ポイントとしましては以下の通りです。
(1)『様式A,B』のシートは『様式1,2』へそれぞれ転送。
(2)毎日データ転送し、『様式1,2』へは下の行へその都度入る。
(3)『様式A,B』及び『様式1,2』は入力箇所以外は保護が掛けられ、データ転送後も保護が掛けられた状態のまま保存。
(4)日付データは重複しない。

どの様に修正すれば良いのでしょうか？
よろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

No1訂正です

毎回同じデータ
↓
毎回始まりが同じで新しく追加されたデータを含む範囲のデータ

補足

ありがとうございます。
すみません。初心者なのでどこをどう修正すべきか分からないのです。
B16に張り付けるということでしょうか？
具体的な修正例を提示して頂けないでしょうか。
すみませんがよろしくお願いします。

回答No.3

kkkkkm

> 具体的な修正例を提示して頂けないでしょうか。

以下のような状態にという事でいかがでしょう。

1日に1行しか増えないとしてコピーするデータの先頭行を毎回様式Aの最終行に変更する場合
With 様式A
.Range(.Cells(Rows.Count, "B").End(xlUp), .Cells(2000, "AA")).Copy
End With
様式1.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial

欠点、転送ができなかった日がありその日以降のデータが様式Aに追記された場合、できなかった日のデータは転送できない。
　　　ボタンを押すたびに様式1にデータが追加されてしまう。
　　　過去のデータの間違いを様式Aで変更した場合、その部分をコピペしなければいけない。
利点　様式Aの過去のデータを間違って変更していた場合でも様式1には影響がない。

毎回すべてを同じところへ貼り付ける場合(B9から始まるという事なので)
様式A.Range("B16:AA2000").Copy
様式1.Range("B9").PasteSpecial xlPasteValues

欠点、様式Aの過去のデータを間違って変更していた場合、間違ったデータがそのまま転送されてしまう。
利点　過去のデータの間違いを様式Aで修正した場合、その部分だけをコピペしなくてもボタンを押すだけで修正が様式1に適用される
　　　転送できなかった日があっても翌日以降でも転送すれば、できなかった日の部分も含めて転送される。

回答No.1

kkkkkm

> 様式A.Range("B16:AA2000").Copy
> 様式1.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
> 様式B.Range("B16:W2000").Copy
> 様式2.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

B16からデータが始まるとしたら、毎回同じデータをそれぞれ最後に追加しているわけですから、当然表示されている結果になってしまうと思いますが・・・

最後に足さずに毎回すべてを同じところへ貼り付けるか、コピーするデータの先頭行を毎回適切な行に変更するか、どちらかにしないとだめなのではないでしょうか。