VBA代码无法很好地跨多个工作簿进行复制和粘贴

Sub CopyPasteAcrossWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 引用源工作簿和工作表
    Set sourceWorkbook = Workbooks("SourceWorkbook.xlsx")
    Set sourceWorksheet = sourceWorkbook.Worksheets("SourceSheet")
    
    ' 引用目标工作簿和工作表
    Set targetWorkbook = Workbooks("TargetWorkbook.xlsx")
    Set targetWorksheet = targetWorkbook.Worksheets("TargetSheet")
    
    ' 复制源工作表的数据到目标工作表
    sourceWorksheet.Range("A1:B10").Copy
    targetWorksheet.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 保存目标工作簿
    targetWorkbook.Save
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub