如何将某个区域中最近添加的单元格值从另一个工作表复制到活动工作表？

Sub CopyRecentCellValue()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim recentCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = Worksheets("源工作表名称")
    Set targetSheet = Worksheets("目标工作表名称")
    
    ' 设置源区域和目标区域
    Set sourceRange = sourceSheet.Range("A1:A10") ' 假设源区域是A1:A10
    Set targetRange = targetSheet.Range("B1:B10") ' 假设目标区域是B1:B10
    
    ' 查找最近添加的单元格
    Set recentCell = sourceRange.Cells(sourceRange.Cells.Count)
    
    ' 复制最近添加单元格的值到目标区域
    targetRange.Value = recentCell.Value
End Sub