VBA : ピボットテーブルの作成

質問

下記の内容でマクロを記述しましたが、「Set pvt = ・・・」の時点で、「実行エラー　'13'　型が一致しません」とエラーが生じてしまいます。
どの部分がいけないのでしょうか？
よろしくお願い申し上げます。
*********************************************
Sub Macro1()
Dim pvt As PivotTable
Dim rngData As Range
Dim shtName As String
Dim mySht As Worksheet

Sheets.Add
'シート名の変更
ActiveSheet.Name = "PVT123"

For Each mySht In ActiveWorkbook.Worksheets
shtName = mySht.Name
If Left(shtName, 2) = "G-" Then
mySht.Select
Exit For
End If
Next

'元データを変数に格納
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
lastClm = 1
Do Until Cells(1, lastClm).Value = ""
lastClm = lastClm + 1
Loop
lastClm = lastClm - 1
Set rngData = ActiveSheet.Range(Cells(1, 1), Cells(lastRow, lastClm))

'ピボットテーブルの作成
Sheets("PVT777").Select
Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("A3"))

～以下省略～

回答No.1

bin-chan

エラーが発生する時点での　lastRow, lastClm　の値は？

補足

lastRow:5813
lastClm:36
です。よろしくお願いいたします。