Siralama Yardim !!!

[TİKOS]

Arkadaşlar tabloda alt toplamların diğer sütunlar içinde olmasını istiyorum.
(E,F,G,...... sütunlarda)

Yardımcı olursanız çok sevinirim.

 

[karadami]

Public Sub Sýlara_Toplam_Al()
Set S1 = Sheets(1)
S1.Select
On Error Resume Next
Columns("A:AC").RemoveSubtotal    '-- Daha önce Alt toplam varsa kaldýrýr---
Son_Satýr = [A65536].End(3).Row
Range("A3:AC" & Son_Satýr).Sort ([A3]) '-- A sütununa göre sýralama yapar ---
    
Columns("A:AC").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

olarak yazin