Makro ile pivot tablo oluşturmak

[Baggwell]

Merhaba makroyu kaydediyorum fakat sorun nerede anlamıyorum

Sub Makro1()
'
' Makro1 Makro
'

'
    Rows("1:9").Select
    Range("A9").Activate
    Selection.Delete Shift:=xlUp
    Columns("H:J").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "stkkdvstk.rpt!R1C8:R65536C10", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Sayfa1!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion10
    Sheets("Sayfa1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("STOK KODU")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("STOK ADI")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("STOK MIKTARI")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("STOK MIKTARI"), "Say STOK MIKTARI", xlCount
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Say STOK MIKTARI")
        .Caption = "Toplam STOK MIKTARI"
        .Function = xlSum
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("STOK ADI").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable1").PivotFields("STOK KODU").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub
Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub