Excel VBA（2007）Range类的小计方法失败

当我尝试在Excel 2007中运行宏时，我得到Range类的小计方法失败错误。当我使用Excel 2003运行宏时，代码工作出色（无错误）。

这是一个片段...

'SubTotal Sheet
    Range("A1").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, 7, _
        8, 9), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

任何帮助，将不胜感激。

我在2007年录制了一个宏，以查看代码中是否有任何区别，并且基本上与上面的内容相同。桌子可能已经移动了吗？A1应该在您要汇总的范围的左上方。数据有中断吗？这可能会引起问题。数据是否正确排序？

运行此代码时，在Excel 2007中遇到什么错误？