ピボットテーブルの作成 ： Excel

Excel2007で実行できます。

Private Sub CommandButton1_Click()
    'ピボットテーブルのキャッシュ型
    Dim tCache As PivotCache
    
    Worksheets("日別の製造数").Activate
    'ピボットテーブルのキャッシュ作成
    Set tCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:C16"))
    
    'ピボットキャッシュから、ピボットテーブルを作成
    tCache.CreatePivotTable TableDestination:=Worksheets("名前で集計").Range("A1"), TableName:="製造数"
    
    '名前の項目を追加
    Worksheets("名前で集計").PivotTables("製造数").AddFields RowFields:="名前"
    
    '製造数を追加
    Worksheets("名前で集計").PivotTables("製造数").PivotFields("製造数").Orientation = xlDataField
End Sub