VBA -复制、粘贴，然后移动到下一行，直到到达空格

Sub CopyPasteMove()
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 选择需要复制的单元格范围
    Set sourceRange = Range("A1")
    
    ' 设置目标单元格范围为下一行
    Set targetRange = sourceRange.Offset(1, 0)
    
    ' 循环执行复制、粘贴并移动到下一行的操作，直到到达空格
    Do Until sourceRange.Value = ""
        ' 复制源单元格范围
        sourceRange.Copy
        
        ' 粘贴到目标单元格范围
        targetRange.PasteSpecial xlPasteAll
        
        ' 移动目标单元格范围到下一行
        Set targetRange = targetRange.Offset(1, 0)
        
        ' 移动源单元格范围到下一行
        Set sourceRange = sourceRange.Offset(1, 0)
    Loop
End Sub