こｐｙ

Sub CopyData()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    Set wbSource = Workbooks("コピー元のワークブック名")
    Set wbTarget = Workbooks("コピー先のワークブック名")
    Set wsSource = wbSource.Worksheets("コピー元のワークシート名")
    Set wsTarget = wbTarget.Worksheets("コピー先のワークシート名")
    
    wsSource.Range("コピーしたい範囲").Copy
    wsTarget.Range("貼り付けたいセル").PasteSpecial xlPasteValues
End Sub