pivottabel oprettes auto (vba)

Hejsa

Jeg har en optaget makro der laver en pivottabel, men kan ikke få den til at ´vælge hvilke data der skal ind..

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'1'!R1C1:R60C22").CreatePivotTable TableDestination:= _
        "[Skade_Last_month_.xls]resultat!R3C2", TableName:="Pivottabel2", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Ini")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Pivottabel1").AddDataField ActiveSheet.PivotTables( _
        "Pivottabel1").PivotFields("BBN"), "antal af BBN", xlCount
    ActiveSheet.PivotTables("Pivottabel1").AddDataField ActiveSheet.PivotTables( _
        "Pivottabel1").PivotFields("CBP"), "antal af CBP", xlCount

og senere i koden:
    Range("B9").Select
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("Antal af BBN").Function = _
        xlSum
    Range("C12").Select
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("Antal af CBP").Function = _
        xlSum


- og disse sum af xxx, fortsætter...


Hvad siger eksperterne til denne?