excel - Why is this code showing error -"runtime error 13 type mismatch"?

Question

I am trying to form a pivot table with the mentioned fields. The code that i am using is this-

Sub summary()
Worksheets("Raw Data").Activate
Dim ptc As PivotCache
Dim pt As PivotTable
Set ptc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion)
Worksheets.Add
Set pt = ActiveSheet.PivotTables.Add(ptc, Range("A4"))
pt.PivotFields("Invoice_Date").Orientation = xlRowField
pt.PivotFields("Region").Orientation = xlRowField
pt.PivotFields("Sales_Amount").Orientation = xlDataField
End Sub

The data is in Sheet 2 which is renamed as "Raw Data". and i am trying to form the pivot table in a new worksheet.

question from:https://stackoverflow.com/questions/65884980/why-is-this-code-showing-error-runtime-error-13-type-mismatch

Answer 1

Waitting for answers