Çözüldü Sayfalar makroyla "Genel" sayfasında nasıl özetlenir?

Sub ExcelTurkey()
    Application.ScreenUpdating = False
    Sayfa5.Activate
    Range("D:AA").Clear
    Range("D1").Select
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]AIDAT'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]DEMIRBAS'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]DIGER'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]YAKIT'!R1C4:R44C22" _
        ), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
        
    Range("D1").Value = "D.NO"
    Sayfa1.Range("E2:E44").Copy Range("E2")
    Range("D1").CurrentRegion.Borders.LineStyle = 1
    Columns("F:V").NumberFormat = "#,##0.00"
    Range("D1:V1").Font.Bold = True
    son = Range("D65536").End(3).Row
    Range("E" & son + 1).Value = "GENEL TOPLAM"
    Range("E" & son + 1).Font.Bold = True
    Range("F" & son + 1).FormulaLocal = "=TOPLA(F2:F" & son & ")"
    Range("F" & son + 1).AutoFill Destination:=Range("F" & son + 1 & ":V" & son + 1), Type:=xlFillDefault
    Range("D1:V1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    Columns.AutoFit
    Columns("R:V").ColumnWidth = 13.29
    Range("D1").Select
    Application.ScreenUpdating = True
End Sub