多个工作表合而为一

多个工作表合而为一
Sub 合并()
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 3   '此处的3为你工作表总数
   n = Sheets(m).[a65536].End(xlUp).Row
   o = Sheets(1).[a65536].End(xlUp).Row
   Sheets(m).Select
   Range("a1", "z" & n).Select
   Range("a" & n).Activate
   Selection.Copy
   Sheets(1).Select
   Range("a" & o + 1).Select
   ActiveSheet.Paste
Next
End Sub