如何将特定的数据单元格(跳过空白单元格)复制到另一个工作表中的下一个空行？

Sub CopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源数据范围（假设数据在第一列）
    Set sourceRange = sourceSheet.Range("A1:A" & sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 设置目标数据起始行（假设目标数据从第二行开始）
    lastRow = targetSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Set targetRange = targetSheet.Range("A" & lastRow + 1)
    
    ' 复制数据
    sourceRange.SpecialCells(xlCellTypeConstants).Copy targetRange
End Sub