ご質問です。素人です。お願いします。

質問

ピボットテーブルを作ったマクロで、新規ワークシートに作成する文はどこですかね？教えて下さい。

Sub 担当者名別売上()
'
' 担当者名別売上 Macro
' マクロ記録日 : 2008/2/25 ユーザー名 : aaaaaa
'

'
集計 = MsgBox("担当者別に売上の降順にしますか？", vbYesNo)
If 集計 = vbYes Then

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"売上データ!R1C1:R255C6").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("担当者名")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル2").PivotFields("売上額"), "合計 / 売上額", xlSum
Range("B5").Select
Selection.Sort Key1:="R5C2", Order1:=xlDescending, Type:=xlSortValues, _
OrderCustom:=1, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
Range("B5").Select
Sheets("売上データ").Select
Range("A1").Select
End If
End Sub

回答No.1

imogasi

TableDestination:=Worksheets("Sheet3").Cells(10, 1)
とすると、私の場合の既存シートのSheet3のA10を表の左上隅とするピボット表が出来たから、ここが既定していると思う。
ActiveSheetにすると、新しいシートを挿入して、そこにピヴォット表を作りませんか。