Dynamic number of datafields in pivot table

[Stephen57]

I have a number of datafields i'm inserting into a pivot table. That number of fields can be different each time the code is executed. Is there a way to assign an Array to add data fields? I tried this:

ActiveSheet.PivotTables("Heads").AddDataField ActiveSheet.PivotTables("Heads").PivotFields(Range("Dates")), Array(Range("Dates")), xlSum

and get a pivot table class error. I'm a beginner .

 

[Stephen57]

I have created an Array and verified that it is populating correctly. My code has evolved into the following, and I'm still getting an error when it comes to adding the data field:

Sheets.Add.Name = "Pivot"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Range("Pivot_Data"), Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Pivot!R3C1", TableName:="Heads", DefaultVersion _
        :=xlPivotTableVersion10
 
    Sheets("Pivot").Select
 
    Cells(3, 1).Select
 
    With ActiveSheet.PivotTables("Heads")
        .ColumnGrand = False
        .RowGrand = False
        .InGridDropZones = True
        .RowAxisLayout xlTabularRow
    End With
 
    With ActiveSheet.PivotTables("Heads").PivotFields("CC")
        .Orientation = xlColumnField
        .Position = 1
    End With
 
    For n = 0 To Date_Count
        ActiveSheet.PivotTables("Heads").AddDataField _
            ActiveSheet.PivotTables("Heads").PivotFields(Dates(n)), _
            Dates(n), xlSum
    Next n

Any help would greatly be appreciated.