帮我写一个Excel中的VB代码，将所有的sheet中的数据合并到第一个sheet中

以下是一段 VB 代码，可以将所有 sheet 中的数据合并到第一个 sheet 中：

Sub MergeSheets()
  Dim ws As Worksheet
  Dim DestSheet As Worksheet

  Set DestSheet = ThisWorkbook.Sheets(1)

  For Each ws In ThisWorkbook.Sheets
    If ws.Name <> DestSheet.Name Then
      ws.UsedRange.Copy
      DestSheet.Cells(DestSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End If
  Next
End Sub

请在Excel中的"开发人员"选项卡下的"Visual Basic"中粘贴代码，并执行该宏。