如何根据下拉值将行复制到另一个工作表中？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim copyRow As Range
    
    Set rng = Range("A1") ' 下拉列表所在的单元格
    Set wsSource = ThisWorkbook.Sheets("源工作表") ' 源工作表的名称
    Set wsTarget = ThisWorkbook.Sheets("目标工作表") ' 目标工作表的名称
    
    If Intersect(Target, rng) Is Nothing Then Exit Sub ' 判断是否为下拉列表单元格的变化
    
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row ' 目标工作表中最后一行的行号
    
    For Each copyRow In wsSource.Range("A2:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row) ' 遍历源工作表中的每一行
        If copyRow.Value = rng.Value Then ' 判断下拉列表的值是否与当前行的值相等
            wsSource.Rows(copyRow.Row).Copy wsTarget.Rows(lastRow + 1) ' 复制当前行到目标工作表的下一行
            lastRow = lastRow + 1 ' 更新目标工作表最后一行的行号
        End If
    Next copyRow
End Sub