範囲を設定するとVBAエラーが発生する - 1004アプリケーション定義エラー

Question

こんにちは私はソースデータの最後の行に基づいて範囲を設定し、その範囲でピボットテーブルを作成するために私のVBAコードで作業しています。しかし、エラー1004（アプリケーション定義エラー）のコードを実行すると、ここの最後の行が間違っています。私はすべての変数が定義されていると思うし、大丈夫なはずです。メッセージボックスは、ソースデータの右端の行番号も表示します。修正してもらえますか？ありがとう。

Dim PvtTbl As pivotTable 
    Dim wsData As Worksheet 
    Dim rngData As Range 
    Dim PvtTblCache As PivotCache 
    Dim wsPvtTbl As Worksheet 
    Dim pvtFld As PivotField 

    Set wsData = Worksheets("Task List Data Export") 
    Set wsPvtTbl = Worksheets("Summary") 

    wsPvtTbl.Cells.Clear 
    wsPvtTbl.Cells.ColumnWidth = 10 

    For Each PvtTbl In wsPvtTbl.PivotTables 
    If MsgBox("Delete existing PivotTable!", vbYesNo) = vbYes Then 
    PvtTbl.TableRange2.Clear 
    End If 
    Next PvtTbl 

    Dim last As Long 

    With Worksheets("Task List Data Export") 
     last = .Cells(.Rows.Count, "A").End(xlUp).Row 

    End With 
    MsgBox last 
    Set rngData = Worksheets("Task List Data Export").Range(Cells(1, 1), Cells(last, 15)) 

************************更新****************** ****** こんにちは私はDy.Leeのコードを適用し、このエラーはついに消えました。しかし、次の行が間違っています（エラータイプの不一致）

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("B25"), TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12 

すべてのアイデアはありますか？おかげで再び

Answer 1

コードは、この

With Worksheets("Task List Data Export") 
    Set rngData = .Range(.Cells(1, 1), .Cells(last, 15)) 
End With