如何将范围从主控表复制到另一个工作表的最后一行(另一个工作表名称=主工作表Z1中的单元格值)

Sub CopyRangeToLastRow()
    Dim sourceRange As Range
    Dim targetSheet As Worksheet
    Dim targetLastRow As Long
    
    ' 获取主控表中需要复制的范围
    Set sourceRange = Sheets("主控表").Range("A1:A10")
    
    ' 获取目标工作表的名称
    Set targetSheet = Sheets("主工作表Z1")
    targetSheetName = targetSheet.Range("A1").Value
    
    ' 在目标工作表中找到最后一行的位置
    targetLastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1
    
    ' 将主控表中的范围复制到目标工作表的最后一行
    sourceRange.Copy targetSheet.Range(targetSheetName & targetLastRow)
End Sub