如何使用VBA将跟随特定字符串的动态数据范围从一个工作表复制到另一个工作表？

Sub CopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历源工作表中的每一行
    For i = 1 To lastRow
        ' 检查特定字符串是否存在于当前行的某个单元格中
        If InStr(1, sourceSheet.Cells(i, "A").Value, "特定字符串") > 0 Then
            ' 将当前行复制到目标工作表的下一行
            sourceSheet.Rows(i).Copy targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next i
End Sub