別のexcelにコピペしたい

質問

お世話になります。

ＥｘｃｅｌファイルのAとBがあります。
Aから、「複数セルを選択」して、Bに「貼付け」する処理の
一部をマクロ(vba)で作成したいと思っております。

具体的ステップとして
(1)手動で、Aの任意の連続したセルを選択してコピー
(2)Bに移動して、貼り付けしたいセルを選択
(3)(1)で取得したデータをペースト
です。

(3)の箇所を「Aのマクロ」を呼び出して実現したいと
思っているのですが、どのようにマクロ(VBA)を記載したら実現できるでしょうか？

お手数ですが宜しくお願い致します。

回答No.1

mt2008

質問文をそのままマクロにすると以下の様になりますけど、[Ctrl]+[V]で済むことをマクロで行う理由はなんでしょう。
あ、VBEのツール→参照で、「Microsoft Forms 2.0 Object Library」（C:\Windows\System32\FM20.DLL）を参照設定しておいてください。

Sub Sample()
　　Dim CBD As New DataObject
　　With CBD
　　　　.GetFromClipboard
　　　　If .GetFormat(1) = False Then
　　　　　　MsgBox ("コピーしていません")
　　　　　　Exit Sub
　　　　End If
　　　　ActiveSheet.Paste
　　End With
End Sub

補足

>[Ctrl]+[V]で済むことをマクロ>で行う理由はなんでしょう。
シートの保護をかけていますので、コードが実現できたら、
シートの保護の解除・ロックで挟みたいのです。

>質問文をそのままマクロにすると以下の様になりますけど、
実際に試して頂けたでしょうか？
理論上のコードなら、私も打てるのですが、実際は正常に動かないので、
単純なコピペの処理では無理なんです。