Ayuda con Tabla Dinamica

[UliCs]

Hola Amigos ayudenme por favor con este problema.
sucede que tengo una macro para hacer un reporte, solamente que los encabezados del reporte los tengo que cambiar constantemente, es decir los encabezados de los datos son fechas por ejemplo en el codigo de abajo es 01/05/2009 pero cada que corro la macro este encabezado cambia

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Hoja1!R3C3:R11C9"). _
CreatePivotTable TableDestination:="", TableName:="TD1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

ActiveSheet.PivotTables("TD1").AddFields RowFields:=Array("Companies", "Usesrs", "Datos")
With ActiveSheet.PivotTables("TD1").PivotFields("01/05/09")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("TD1").PivotFields("08/05/09")
.Orientation = xlDataField
.Position = 2
End With
With ActiveSheet.PivotTables("TD1").PivotFields("15/05/09")
.Orientation = xlDataField
.Position = 3
End With
With ActiveSheet.PivotTables("TD1").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With

Ayudenme Please. Thks
<div_prefs id="div_prefs"></div_prefs>

 

[UliCs]

Ya pude le quite la posicion.
Muchas Gracias.