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