Modify the summary functions for each pivot table in your workbook

ForEachPT_ModifyDataFieldsSummaryFunctions.bas

Sub ModifyDataFieldsSummaryFunction()

Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem
Dim i As Integer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, 2014
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For i = 1 To 2
Worksheets(i).Activate
Set PT = ActiveSheet.PivotTables(1)

Select Case i

Case 1
ActiveSheet.name = Format(ActiveSheet.Range("K2"), "dd-mmm")
For Each PF In PT.DataFields
'must use DataFields Collection if you are going to change the method of consolidation
    If PF.Position > 4 Then PF.Function = xlCountNums
    If PF.Position <= 4 Then PF.Function = xlSum
    If PF.Position <= 4 Then PF.NumberFormat = "0.0"
Next PF

Case 2
ActiveSheet.name = "weeks" & Format(ActiveSheet.Range("K2"), "dd-mmm")

For Each PF In PT.DataFields
'must use DataFields Collection if you are going to change the method of consolidation
    If PF.Position > 3 Then PF.Function = xlCountNums
    If PF.Position <= 3 Then PF.Function = xlSum
    If PF.Position <= 3 Then PF.NumberFormat = "0.0"
    Next PF

End Select

Next i
End Sub