粘贴到另一个工作表的下一个空行

=INDEX(A:A, MATCH(TRUE, INDEX((A:A<>"")*(ROW(A:A)=ROW(A:A)), 0), 0) + 1)

Sub PasteToNextEmptyRow()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRowSource As Long
    Dim lastRowDest As Long
    Dim nextEmptyRow As Long
    
    Set wsSource = ThisWorkbook.Sheets("Sheet1") ' 源工作表
    Set wsDest = ThisWorkbook.Sheets("Sheet2") ' 目标工作表
    
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row
    
    nextEmptyRow = lastRowDest + 1
    
    wsSource.Range("A1:D" & lastRowSource).Copy Destination:=wsDest.Range("A" & nextEmptyRow)
    
    MsgBox "数据已粘贴到目标工作表的下一个空行。"
End Sub