我需要代码来将工作表上表中选定行中的特定值复制并粘贴到另一个表中的单元格

Sub CopyPasteValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Range
    Dim targetCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源行和目标单元格
    Set sourceRow = sourceSheet.Rows("选定行号")
    Set targetCell = targetSheet.Range("目标单元格地址")
    
    ' 复制源行中的特定值到目标单元格
    targetCell.Value = sourceRow.Cells("特定列号").Value
End Sub