如果C的单元格值与sheetname匹配，如何将行复制到另一个工作表

Sub CopyRowsToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为源工作表的名称
    Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为目标工作表的名称
    
    ' 获取源工作表的最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "C").End(xlUp).Row
    
    ' 循环遍历源工作表的每一行
    For i = 1 To lastRow
        ' 判断C列的单元格值是否与sheetname匹配
        If sourceSheet.Cells(i, "C").Value = sourceSheet.Name Then
            ' 复制整行数据到目标工作表的下一行
            sourceSheet.Rows(i).Copy targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next i
End Sub