excel vba在最后一个空行上从sheet1和past剪切到sheet2

Sub MoveData()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow As Long
    
    ' 设置工作表对象
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1中最后一个非空行的行号
    lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    
    ' 将数据剪切到Sheet2的最后一个空行上
    ws1.Range("A1:B" & lastRow).Cut ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Offset(1)
    
    ' 清除剪切区域的内容
    ws1.Range("A1:B" & lastRow).ClearContents
    
    ' 释放对象
    Set ws1 = Nothing
    Set ws2 = Nothing
End Sub