Soru Pivot Table Oluşturmak

[tuvons]

Arkadaşlar merhaba,

Başlıkları değişen sayfamdaki verilerle pivot table oluşturmak istiyorum. Başlıklar her ay değiştiği için makroya bunu yazamadım. "DÖNEM SONU (ÖNRAPOR)" ve " KASIM_TUTAR (YILSONU)" alanları değişkenlik gösteriyor. Yardımcı olabilir misiniz?

Sub pivot()
    Columns("A:C").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "MÜŞTERİLER!R1C1:R1048576C3", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="MÜŞTERİLER!R1C7", TableName:= _
        "PivotTable2", DefaultVersion:=xlPivotTableVersion14
    Sheets("MÜŞTERİLER").Select
    Cells(1, 7).Select
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("MUSTERI")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
        "PivotTable2").PivotFields("DÖNEM SONU (ÖNRAPOR)"), _
        "Say DÖNEM SONU (ÖNRAPOR)", xlCount
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
        "PivotTable2").PivotFields(" KASIM_TUTAR (YILSONU)"), _
        "Say  KASIM_TUTAR (YILSONU)", xlCount
    With ActiveSheet.PivotTables("PivotTable2").PivotFields( _
        "Say DÖNEM SONU (ÖNRAPOR)")
        .Caption = "Toplam DÖNEM SONU (ÖNRAPOR)"
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("PivotTable2").PivotFields( _
        "Say  KASIM_TUTAR (YILSONU)")
        .Caption = "Toplam  KASIM_TUTAR (YILSONU)"
        .Function = xlSum
    End With
    Columns("G:I").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
End Sub