高手来赐我一关于数据透视表和宏命令的问题

yueyueniao1985

小弟用数据透视表简化工作，只有A列（名称）和B列（数值），但AB列都有几万行，A列中共有800多行是唯一的，其余的A列行中对应的B的数值不一样，现在用数据透视把AB都选中，运行求A列中相同的B项之和，最后结果是AB两列，A列式那唯一的800多行名称，B列是那几万行中对应数据相加的值。
现在的问题是我想将以上步骤简化为一个宏命令，因为天天都要做，即使是数据透视表也觉得很麻烦，
但是我用红命令录制后结果运行宏缺提示出错，我现在请大家帮帮忙看看，怎么制作这个宏。
下面是运行宏出错后的Sub Macro2()
'
' Macro2 Macro
' 宏由 WangTongWu 录制，时间: 2009-4-17
'
' 快捷键: Ctrl+Shift+Q
'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet2!C1:C2").CreatePivotTable TableDestination:= _
        "[BSC20090412_20_B9_icell_fml5.xls]Sheet2!R3C4", TableName:="数据透视表3", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTables("数据透视表3").AddFields RowFields:="名称"
    With ActiveSheet.PivotTables("数据透视表3").PivotFields("数值")
        .Orientation = xlDataField
        .Caption = "求和项:数值"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub
，，本人看不懂，请大大帮帮

[ 本帖最后由 yueyueniao1985 于 2009-4-17 16:45 编辑 ]

jssy

将原文件发上来吧

yueyueniao1985

那个文件错了，用这个帮我看看，我减少了很多行，原始有几万行，我只会用数据透视，请问要编个宏，怎么实现