Tabla dinámica, error en definir el rango

En la parte señalada en <--** inserte este código y me dice que esta mal al definir el rango en que quiero insertar la tabla

Dim wsd As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim PRange As Range
Dim FinalRow As Long
Set wsd = Worksheets("Datos")
'eliminar cualquier tabla dinámica anterior
For Each PT In wsd.PivotTables
PT.TableRange2.Clear
Next PT
'definir el área de entrada y establecer un cache dinámico
FinalRow = wsd.Cells(65536, 1).End(xlUp).Row
Set PRange = wsd.Cells(1, 1).Resize(FinalRow, 8)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address)
Set PT = PTCache.CreatePivotTable(wsd.Range("J2"), "Mi_Tabla_Dinamica") <----**
'establecer los campos de fila y columna
PT.AddFields RowFields:=Array("Product", "Customer"), ColumnFields:="Region"
'establecer los campos de datos
With PT.PivotFields("Revenue")
.Orientation = xlDataField
.Function = xlSum
.Position = 1
End With
End Sub
'Otra alternativa para la creacion de una tabla dinámica sin usar pivotcache
Sub Crea_TD2()
Dim ws As Worksheet
Dim TD As PivotTable
Set ws = ThisWorkbook.Sheets("Datos")
'eliminar tablas dinamicas existentes en la hoja
For Each TD In ws.PivotTables
TD.TableRange2.Clear
Next TD
Set TD = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=ws.Range("A1").CurrentRegion.Address, _
TableDestination:=ws.Range("J2"))
With TD
.PivotFields("Product").Orientation = xlRowField
.PivotFields("Customer").Orientation = xlRowField
.PivotFields("Region").Orientation = xlColumnField
.PivotFields("Revenue").Orientation = xlDataField
.PivotFields("Revenue").Function = xlSum
End With