重复指定工作表中的复制/粘贴步骤-如何简化VBA代码？

Sub CopyPaste()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 指定源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 指定源范围和目标范围
    Dim sourceRange As Range
    Dim targetRange As Range
    
    Set sourceRange = sourceSheet.Range("A1:B10") ' 指定源范围
    Set targetRange = targetSheet.Range("C1") ' 指定目标范围
    
    ' 复制源范围到目标范围
    sourceRange.Copy Destination:=targetRange
End Sub