pivot table makrosunda sheet olayına bağlı debug

[MOONROSE]

merhaba,makro kaydedici ile "U.IS EMRI LISTESI" sheetindeki verilerden pivot table oluşturmaya çalışıyorum.(aslında bunda sorun yok) Fakat bu debug veriyor.Debug: U.IS EMRI LISTESI sheetinin activate olayında sortlama işlemi var ve debug olarak bu sortlamayı gösteriyor. bu sorunu nasıl çözebilirim. pivot yaparken o sheeti seçtiğinden işlemler birbirine giriyor sanırım. yardımlarınız için teşekkürler.

Sub Makro8()

    Sheets("U.IS EMRI LISTESI").Select
    Range("B4:BG65536").Select
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'U.IS EMRI LISTESI'!R4C2:R65536C59").CreatePivotTable TableDestination:="", _
        TableName:="Ã?zet Tablo 4", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Ã?zet Tablo 4").AddFields RowFields:=Array("MÜÞTERİ", _
        "Veri")
    With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("SİPARİÞ TOPLAMI")
        .Orientation = xlDataField
        .Caption = "Toplam SİPARİÞ TOPLAMI"
        .Position = 1
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("SEVK EDİLEN MİKTAR")
        .Orientation = xlDataField
        .Caption = "Toplam SEVK EDİLEN MİKTAR"
        .Position = 2
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("KALAN MİKTAR")
        .Orientation = xlDataField
        .Caption = "Toplam KALAN MİKTAR"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    Range("I4").Select
End Sub

U.IS EMRI LISTESI sheetindeki kodlar

Private Sub Worksheet_Activate()
  
    Range("B5:Bg65536").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
End Sub

bağlantılı olarak başka bir sorum olacak.
makro kaydedici ile yaptığım işi daha kısa nasıl yapabilirim. Amacım U.IS EMRI LISTESI sheetindeki Müşterilerin (e4:e65536) toplam sipariş(h4:h65536),sevk miktarı (ı4:ı65536) ve kalan siparişlerinin (j4:j65536) toplam özetlerini almak.

 

[MOONROSE]

merhaba,sheet activate olayındaki sortlamaya macro yarattım ve sheet activate 'de run macro dedim sorun çözüldü.teşekkürler