如何在sheet1的第i列中找到非空值，然后复制整行并粘贴到sheet2中

Sub CopyNonEmptyRows()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源工作表中第i列的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "i").End(xlUp).Row
    
    ' 清空目标工作表中的内容
    wsDest.Cells.Clear
    
    ' 遍历第i列的每一个单元格
    For Each cell In wsSource.Range("i1:i" & lastRow)
        ' 如果单元格非空
        If Not IsEmpty(cell) And cell.Value <> "" Then
            ' 复制整行到目标工作表
            cell.EntireRow.Copy Destination:=wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next cell
End Sub