'セルをアクティブにしてペースト Range("A1:A1").Activate ActiveSheet.Paste 'セルを指定してペースト Range("A1:A1").Pastespecial
'セルをアクティブにしてペースト
Range("A1:A1").Activate ActiveSheet.Paste
'セルを指定してペースト
Range("A1:A1").Pastespecial