Excel VBAの自動生成VBAでエラーが発生？

質問

'　↑
'この上にピポットテーブルを作る為のデータをSheetに生成し
'下記でそのSheetに名前を付けてピポットテーブルを作成するVBA
Dim wk As String
wk = Application.InputBox("シート名を入力ください")
If wk <> "False" Then
ActiveSheet.Name = wk
Else
MsgBox "キャンセルされました。"
Exit Sub
End If

Sheets.Add

MsgBox "選択したシート名は" & wk & "です。"
'--------------------------------------------------------------------------------------------------------------------
'この中でエラーメッセージが出てしまっています。
'どこがいけないのでしょうか？
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
wk & "!R1C1:R95C18", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Sheet1!R3C1", TableName:="ピボットテーブル1", DefaultVersion _
:=xlPivotTableVersion15
'-------------------------------------------------------------------------------------------------------------------
Sheets("Sheet1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("UserName")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル1").PivotFields("作業時間"), "合計 / 作業時間", xlSum
ActiveSheet.PivotTables("ピボットテーブル1").CompactLayoutRowHeader = "UserName"
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("C16").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "名別"

回答No.1

imogasi

別新規ブックで、マクロの記録モードにして、自分でデータの簡略版（行数を少なく列数を必要なものに限ってデータを５行程度作り）をシートに作り、ピボットテーブルの操作を手動で行って、できたマクロの記録を印刷し、」じっくりデスクで両者を比べて、自分で、質問のマクロが止まる原因を追究し、疑問点があれば論点を絞り、質問せよ。
止まりましたーー＞すぐ、質問しよう、になっていないか？
他のデータのピボットのマクロの記録をそのまま、使って載せてないか？