Pivot table display text in column rather than count

With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Resource Name")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Project")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
        "PivotTable_Resource").PivotFields("Comments")
    ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
        "PivotTable_Resource").PivotFields("month1")
    ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
        "PivotTable_Resource").PivotFields("month2")

Sub pivotcomments()
'=== Select data and determine size of table
Worksheets("ResourceData").Select
Worksheets("ResourceData").Range("A1").Select
rowsnum = Worksheets("ResourceData").UsedRange.Rows.Count
colsnum = Worksheets("ResourceData").UsedRange.Columns.Count
enddata = "R" & rowsnum & "C" & colsnum


'=== create pivot table
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "ResourceData!R1C1:" & enddata, Version:=xlPivotTableVersion12).CreatePivotTable _
    TableDestination:="PivotTable_Resource!R3C1", TableName:="PivotTable_Resource", _
    DefaultVersion:=xlPivotTableVersion12


'=== select location to put pivot table
Sheets("Pivottable_Resource").Select
Sheets("Pivottable_Resource").Cells(3, 1).Select


'=== setup rows
With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Resource Name")
    .Orientation = xlRowField
    .Position = 1
End With
With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Project")
    .Orientation = xlRowField
    .Position = 2
End With


'=== setup columns
ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
    "PivotTable_Resource").PivotFields("Comments")
    ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
        "PivotTable_Resource").PivotFields("month1"), "Count of month1", xlCount
With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Count of month1")
    .Caption = "Sum of month1"
    .Function = xlSum
End With


ActiveSheet.PivotTables("PivotTable_Resource").AddDataField ActiveSheet.PivotTables( _
    "PivotTable_Resource").PivotFields("month2"), "Count of month2", xlCount
With ActiveSheet.PivotTables("PivotTable_Resource").PivotFields("Count of month2")
    .Caption = "Sum of month2"
    .Function = xlSum
End With


End Sub