コピー＆貼り付け

�@　a1セル値をb1セル値に貼り付ける。
Range("a1").copy Range("b1")

�A
Range("a1").copy
Activesheet.paste　range("b7")
Activesheet.paste　range("C7")
Application.Cutcopymode=false




�B
selection.copy
�C
ActiveSheet.Shapes("Button 1").Copy
Sheets("WORK").Select
Range("A1").Select
' ActiveSheet.Buttons.Add(0, 0, 54, 13.5).Select
ActiveSheet.Paste
Range("a1").Select

Application.CutCopyMode = False