'貼り付け（というか値の代入） -----------------------------------

'（別ブック別シートへの代入）

Dim myマクロ As Worksheet

Dim ファイル名(1) As String

Dim ファイルパス(1) As String

ファイル名(0) = "マクロ.xls"

ファイル名(1) = "作業book.xls"

ファイルパス(1) = "C:\" & ファイル名(1)

Set myマクロ = Workbooks(ファイル名(0)).Sheets(1)

  Workbooks.Open ファイルパス(1)

  myマクロ.Range("B6:B14").Value = Workbooks(ファイル名(1)).Sheets(1).Range("C2:C10").Value

  'クリップボードに大量のデータがある旨を警告するのをやめさせる。

  Excel.Application.CutCopyMode = False

  'コピー元ファイルを閉じる

  Workbooks(ファイル名(1)).Close (False)