Pivot Table DataSource

hola - having a nightmare with a pivottable in VBA. I cannot give it a dynamic datasource. Surely i must be coding this wrong.

please take a look at the code

it breaks on setting the range for PTRange with the error

Run Time Error '1004'

application-defined or object-defined error

'== set PivotTable Range and cache it for reuse ==
Dim PTRange As Range
Set PTRange = Range("A1").Resize(lastrow_rng, lastCol)

Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                SourceData:=PTRange)
              
'== add worksheet for pivot table ==
Worksheets.Add
ActiveSheet.Name = "PivotSheet"
ActiveSheet.PageSetup.Orientation = xlLandscape

'== set PivotTable Location and Source ==
Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, TableDesination:=Range("A3"), _
         TableName:="Inside Market")
   
'== assign fields into rows / columns ==
With PT
    .PivotFields("Trader Name").Orientation = xlRowField
    .PivotFields("Member Name").Orientation = xlRowField
    .PivotFields("Delete reason").Orientation = xlColumnField
End With

cheers

hi shasur-

yes they are variables set dynamically above

in this instance

lastcol = AY
lastRow_rng = 16899

hey andy, niceone...didnt think of that

but still getting the same message

lastcol_rng = Range("A1").End(xlToRight).Column

so lastcol_rng = 51 as you said

but still this irritating message grrr

am i setting PTRange correctly?

Set PTRange = Cells(1, 1).Resize(lastCol_rng & LastRow_rng)