Match Type Error

This macro is one I got offline and it work perfectly with another tab, but once I try and use a second tab with different data I keep getting an error, It might be a simple fix that I am overlooking if not underlined the spot in the code that brings back the error.

Sub Macro1()
Dim pt As PivotTable
Dim strField As String
Dim WSD As Worksheet
Set WSD = Worksheets("aa")
Dim PTOutput As Worksheet

Sheets.Add.Name = "bb"

Set PTOutput = Worksheets("bb")
Dim PTCache As PivotCache
Dim PRange As Range

Sheets("aa").Select

' Find the last row with data
Dim finalRow As Long
finalRow = WSD.Cells(Application.Rows.Count, 1).End(xlUp).Row

' Find the last column with data
Dim finalCol As Long
finalCol = WSD.Cells(1, Application.Columns.Count).End(xlToLeft).Column

' Find the range of the data
ActiveWorkbook.PivotCache.MissingItemsLimit = xlMissingItemsNone
Set PRange = WSD.Cells(1, 1).Resize(finalRow, finalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange):mad:

' Create the pivot table
Set pt = PTCache.CreatePivotTable(TableDestination:=PTOutput.Cells(1, 1), TableName:="SamplePivot3")

' Define the layout of the pivot table

' Set update to manual to avoid recomputation while laying outpt
pt.ManualUpdate = True

' Set up the row fields
pt.AddFields RowFields:=Array("ItemNumber")


thanks for the help

' Set up the data fields
With pt.PivotFields("ReceiptQty")
.Orientation = xlDataField
.Function = xlSum
.Position = 1
End With

' Now calc the pivot table
pt.ManualUpdate = False
End Sub