如何在VBA中更有效地将区域从一个工作簿复制粘贴到另一个工作簿？

Sub CopyPasteRange()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 打开源工作簿和目标工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    Set targetWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 定义源和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    ' 定义源和目标区域
    Set sourceRange = sourceWorksheet.Range("源区域地址")
    Set targetRange = targetWorksheet.Range("目标区域地址")
    
    ' 复制和粘贴区域
    sourceRange.Copy
    targetRange.PasteSpecial Paste:=xlPasteValues
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub