带条件复制/粘贴的Do While循环- Excel VBA -代码不工作

Sub ConditionalCopyPaste()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源数据的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化循环变量
    i = 2 ' 假设第一行是标题行
    
    ' 开始Do While循环
    Do While i <= lastRow
        ' 条件判断：假设我们要复制A列中值大于10的单元格
        If wsSource.Cells(i, "A").Value > 10 Then
            ' 复制并粘贴到目标工作表的B列
            wsSource.Cells(i, "A").Copy Destination:=wsTarget.Cells(i, "B")
        End If
        
        ' 更新循环变量
        i = i + 1
    Loop
End Sub