『ピボットテーブルの編集』（MARU）

 "データベース"シートのデータをもとに"データ２"のシートへピボットテーブルを
 作成しています。
 このピボットテーブルをもとに"グラフ２"のシートへグラフが作られます。
 (1,20)〜(1,***)は項目名が入っています。項目名は、A***,B***,C***と
 先頭A,B,Cがついた名前となっております。
 そこでこのピボットを作成する際、下記の記述を編集し、
 Aだけのピボット,Bだけのピボット,Cだけのピボットをカスタマイズできないでしょ
 うか？
 アドバイスいただきたく、よろしくお願いします。
 
 Worksheets("データ２").Select

 Worksheets("データ２").Cells.Clear
 Worksheets("データベース").Select

 Dim koumoku(300)
 For i = 20 To dataclm
     koumoku(i) = Worksheets("データベース").Cells(1, i).Value
 Next i

 Worksheets("データ２").Select

 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
      "Data1").CreatePivotTable TableDestination:= _
        "[ファイルR2.xls]データ２!R1C1", TableName:="sys2"

 ActiveSheet.PivotTables("sys2").AddFields RowFields:="データ", _
        ColumnFields:="日付", PageFields:="品番"
    With Worksheets("データ２").PivotTables("sys2").PivotFields("数量合計")
        .Orientation = xlDataField
        .Position = 1
        .Function = xlSum
        .Caption = " 数量合計"
    End With
    With ActiveSheet.PivotTables("sys2").PivotFields("会社")
        .Orientation = xlPageField
        .Position = 2
    End With
    With Worksheets("データ２").PivotTables("sys2").PivotFields("数量2")
        .Orientation = xlDataField
        .Position = 2
        .Function = xlSum
        .Caption = " 数量2"
    End With
    With Worksheets("データ２").PivotTables("sys2").PivotFields("数量3")
        .Orientation = xlDataField
        .Position = 3
        .Function = xlSum
        .Caption = " 数量3"
    End With
    
    For i = 20 To dataclm

    With Worksheets("データ２").PivotTables("sys2").PivotFields(koumoku(i))
        .Orientation = xlDataField
        .Position = i - 14
        .Function = xlSum
        .Caption = " " & koumoku(i)
    End With
    
    Next i

    With ActiveSheet.PivotTables("sys2")
        .ColumnGrand = False
        .RowGrand = False
    End With

 Worksheets("グラフ２").Select