Pivot table column names in VBA

[MPaulus]

I am trying to change the names of my pivot table columns that is created in a macro. The names of the columns from my data table will always change, but the locations will remain the same.

ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("Total Late Hrs"), "Sum of Total Late Hrs", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("12-Oct-21"), "Sum of 12-Oct-21", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("19-Oct-21"), "Sum of 19-Oct-21", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("26-Oct-21"), "Sum of 26-Oct-21", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("2-Nov-21"), "Sum of 2-Nov-21", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("9-Nov-21"), "Sum of 9-Nov-21", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("40 Hr Capacity"), "Sum of 40 Hr Capacity", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("50 Hr Capacity"), "Sum of 50 Hr Capacity", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("60 Hr Capacity"), "Sum of 60 Hr Capacity", xlSum

The dates in the above columns will come from cells E2, F2, G2, H2 and I2 of my data sheet. What is the proper format to name these columns from those cells?