Pıvot table da hata run time error "1004"

[haso_excel]

Merhaba arkadaşlar,

Her zaman aynı şekilde hazırlamak zorunda olduğum bir pivot table için makra recort edmek istedim. Çalıştırmak istediğimde hata mesajı veriyor, Yardımcı olur musunuz lütfen

Sub BS()

    [B]ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!C1:C43").CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable3", DefaultVersion:=xlPivotTableVersion10[/B]    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:=Array("Adı2", _
        "Data")
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Brüt Tutar(UPB)")
        .Orientation = xlDataField
        .Caption = "Sum of Brüt Tutar(UPB)"
        .Position = 1
        .Function = xlSum
    End With
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Referans").Orientation = _
        xlDataField
    ActiveWorkbook.ShowPivotTableFieldList = True
    Range("B3").Select
    With ActiveSheet.PivotTables("PivotTable3").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable3").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable3").Format xlReport6
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Masraf Tipi Tanımı")
        .Orientation = xlRowField
        .Position = 1
    End With
    Range("A11").Select
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Masraf Tipi Tanımı")
        .PivotItems("Çekme Masrafları").Visible = False
        .PivotItems("Dosya Masrafları").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

A kolonu ile AQ kolonları arasındaki bilgilerden pivot table yapmaya çalışıyorum. Bilgiler satır sayısı olarak her seferinde değişebilir.

 

[hamitcan]

Her defasında tabloyu yeniden oluşturmanıza gerek yok. Sadece veri kaynağı satırını değiştirmeniz yeterli.
"Sheet1!C1:C43" satırını
"Sheet1!C1:C500" şeklinde değiştirin.