『ピボットエラー「AddFieldsメソッドが失敗しました」の修正方法は？』（ピボットマスターを目指す初心者）

エクセル2003で以下を実行すると、
「実行時エラー1004　PivotTableクラスのAddFieldsメソッドが失敗しました」と
なってしまいます。修正方法を教えて頂けますでしょうか？

デバッグを開くと以下の部分が黄色でハイライトされています。
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").AddFields RowFields:=Array("所属名称", _
        "代表", "原価センタ")



ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub 名簿レイアウト変更()
'
' 名簿レイアウト変更 Macro
' マクロ記録日 : 2007/5/21  ユーザー名 : X
'

'
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.Zoom = 75
    Columns("C:AJ").Select
    ActiveWindow.LargeScroll ToRight:=-2
    Columns("C:P").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:Y").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
End Sub
Sub バス振替ーピボットA1から()
'
' バス振替ーピボットA1から Macro
' マクロ記録日 : 2007/5/21  ユーザー名 : X
'

'
    Columns("A:D").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "ここに貼り付け!C1:C4").CreatePivotTable TableDestination:="", TableName:= _
        "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").AddFields RowFields:=Array("所属名称", _
        "代表", "原価センタ")
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("従業員No").Orientation = _
        xlDataField
    Range("B4").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("代表").Subtotals = Array( _
        False, False, False, False, False, False, False, False, False, False, False, False)
End Sub