Çözüldü Sutun başlığına göre icmal düzenleme

Sub Malzeme_Cikis()
Sheets("kontrol").Range("I4:J204").ClearContents
t = Timer
Application.ScreenUpdating = False
Set S1 = Sheets("Malzeme_Toplu_Cikis")
Set S2 = Sheets("kontrol")
sat = 3
For i = 8 To 70
If S1.Cells(1, i) <> "NO" And S1.Cells(1, i) <> "BEDEN" Then
sat = sat + 1
S2.Cells(sat, "I") = S1.Cells(1, i)
S2.Cells(sat, "J") = WorksheetFunction.Sum(S1.Range(S1.Cells(2, i), S1.Cells(Rows.Count, i)))
End If
Next i
'S2.Range("I4:J38").Sort S2.Range("J4"), 2
Application.ScreenUpdating = True
MsgBox "İşlem Tamam " & Format(Timer - t, "Fixed") & "Sn."
End Sub
(kodlar @Feyzullah hocama aittir)

Ekli örnek dosyamda yukarıdaki kod ile Kontrol sayfasında ürün başlığına göre icmal çıkartabiliyorum. Ancak ben icmal sayfasında belirttiğim şekilde Malzeme_Toplu_Cikis sayfasındaki C sutununda bulunan Cinsiyet, J sutunundan sonraki sutun başlığındaki ürün ismi, ürün isminin sağında bu gürüne ait Beden yada No ile belirtilen sutundaki değeri baz alarak belirttiğim tarih aralığını Malzeme_Toplu_Cikis sayfasındaki G sutunundaki tarihlere göre Adet toplamlarını almak istiyorum.
Almak istediğim sonuç icmal sayfasında gösterdiğim şekilde olacak. Yardımcı olacak hocalarıma şimdiden teşekkür ederim. Saygılarımla.