excel多个sheet数据合并到一个sheet中，vba代码问题

[xuminjun]

在这2个sheet中，我最下面的小计和第一行的不需要，怎么用vba实现

Dim m As Integer

Dim n As Integer

Dim o As Integer

For m = 2 To 3

n = Sheets(m).[a65536].End(xlUp).Row

o = Sheets(1).[a65536].End(xlUp).Row

Sheets(m).Select

Range("a2", "z" & n).Select

Range("a" & n).Activate

Selection.Copy

Sheets(1).Select

Range("a" & o + 1).Select

ActiveSheet.Paste

Next

我这里的代码合并后只能去除第一行的，最后一行的小计还是会留下来，怎么在上面的代码如何修改达到小计这行也不会留下来。

[dsd999]

n = Sheets(m).[a65536].End(xlUp).Row - 1 o = Sheets(1).[a65536].End(xlUp).Row - 1 试试。

[kasyu]

n = Sheets(m).[a65536].End(xlUp).Row - 1