that gets the cycling to go, now in the code:

  Set pc = ActiveWorkbook.PivotCaches.create(SourceType:=xlDatabase, SourceData:= _
        "ICS-GSD-Account Management!R2C1:R1106C8", Version:=xlPivotTableVersion10)
   Set pt = pc.CreatePivotTable(TableDestination:=Sheets("ICS-GSD-Account Management").Cells(2, 9), _
       TableName:="", DefaultVersion:=xlPivotTableVersion10)
        
    
    Set cht = ActiveSheet.Shapes.AddChart.Chart
    With cht
        .SetSourceData Source:=Sheets("ICS-GSD-Account Management").Range("$I$2:$O$15")
        .ChartType = xlColumnClustered
    End With
how can I set the source date just to the active sheet and not to a static sheet?