合并工作表的宏代码问题，哪位高手帮下忙

Question

帮我看看这个为什么连接的前一表的最后一行数据没有了？
Sub 汇总数据()
Sheets.Add
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")
For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 0, 1)
Next
End With
End Sub
在哪可以上传附件呀？高手！

Answer 1

把copy的域加一行不行么？
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 0, 1)
行少加行 列少加列追问

你好！每个表的行数不一样，我想让代码能做到合并后显示最后一行，不然的话，要是别人的的几百张表，我去合并汇总的话就是个麻烦事。

追答

这里不是能传附件么
你传给我一个
我直接给你改好
------
再把你需求说一下 没看明白
“想让代码能做到合并后显示最后一行”
是什么意思

追问

是表1、表2连接后，表1的最后一行没有了，表1到表100合并后，前面99个表的最后一行没有了

追答

Sub 按钮1_Click()
Sheets.Add
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")

For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy ActiveSheet.Range("A" & ActiveSheet.Range("A65536").End(xlUp).Row + 1)
Next
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End With
End Sub

追问

多谢了大侠！我昨天改成
s.UsedRange.Copy .Cells(ActiveSheet.UsedRange.Range("a65536").End(xlUp).Row + 1, 1)
是跟你这个一样效果的，最后一行的第一格没有数据，所以没了最后一行，有办法吗？

追答

Rows("1:1").Select
Selection.Delete Shift:=xlUp