如何将来自不同工作表的msgbox值存储到一个工作表中

Sub CopyMsgBoxValues()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表1")
    
    ' 设置目标工作表
    Set wsDestination = ThisWorkbook.Worksheets("目标工作表")
    
    ' 找到源工作表中msgbox值的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 将msgbox值复制到目标工作表
    wsSource.Range("A1:A" & lastRow).Copy wsDestination.Range("A" & wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Row + 1)
    
    ' 重复以上步骤，将其他工作表中的msgbox值复制到目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表2")
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    wsSource.Range("A1:A" & lastRow).Copy wsDestination.Range("A" & wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Row + 1)
    
    '...可根据需要重复以上步骤，复制其他工作表的msgbox值到目标工作表
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 提示操作完成
    MsgBox "msgbox值已存储到目标工作表中。"
End Sub