求高人帮我解释下这段VBA代码，急急急！！！

楼上的别乱解释 误人子弟啊
Dim m As Integer
Dim n As Integer
Dim o As Integer
'以上3句是定义变量语句
For m = 2 To 6 'for...next循环语句 这段程序设置的是M的值从2 循环到6结束 每循环一次+1
n = Sheets(m).[a65536].End(xlUp).Row '给变量N赋值为表的顺序号是M的工作表的第一列的最后一个有数据的行号
o = Sheets(1).[a65536].End(xlUp).Row '给变量N赋值为表的顺序号是1的工作表的第一列的最后一个有数据的行号
Sheets(m).Select '顺序号是M的工作表被设为当前工作表
Range("a1", "z" & n).Select '当前工作表的区域A1:Zn被选择
Range("a" & n).Activate '当前工作表的单元格An被设为当前单元格
Selection.Copy '被选择的区域 复制
Sheets(1).Select '顺序号为1 的工作表被设为当前工作表
Range("a" & o + 1).Select '当前工作表的单元格Ao+1 (也就是有数据的最后一行的下一行)被选择
ActiveSheet.Paste 粘贴刚刚copy的区域到当前被选中的单元格
Next '返回for语句继续循环 直到循环到大于6结束.
所谓表的顺序号,就是看表的标签从左向右依次是1,2,3...

PS:你可以 按F8 单步执行这段程序然后对照工作表观察各个变量的变化情况来了解代码的运行.
把鼠标指向变量,就可以看到改变量当时的值.或者可以添加监视 来观察变量的变化.

汗！！ 啥东西都没有