Pivot Table row labels and values

[justin 00089]

I'm trying to add the same field to row labels and values of my pivot table. I can get each to work alone, however when I combine the code one is overwritten and left out of the other filter.

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R22C6", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Sheet2!R4C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion14
Sheets("Sheet2").Select
Cells(4, 1).Select
Set pvt = ActiveSheet.PivotTables("PivotTable1")
pvt.PivotFields("Hours").Orientation = xlRowField
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Hours"), "Count of Hours", xlCount

 

[justin 00089]

Solved, I just had to set the xl count in the value field before setting the rowfield.