عليكم السلام انا هحاول اساعد
هذا الكود اهدانى اياه استاذى العزيز استاذ سليم ربنا يحفظه
فيه الى حضرتك عايزاه بس يحتاج تعديل طبعا
لعله يفيدك

Option Explicit

Sub Trasfer_data_Special()
  Dim R          As Worksheet, Act_sh As Worksheet
  Dim k%, col%, Ro%
  Dim Max_ro%, x%, y%
  Dim Bol        As Boolean
  Dim ST_Dat     As Date
  Dim End_Dat    As Date
  Dim My_sum#
  Dim Mot$
  
Mot = "ÇáÇÌãÇáì"

Set R = Sheets("Report_Youmi")
Ro = R.Cells(Rows.Count, 1).End(3).Row
R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents
R.Cells(3, 9).Resize(Ro - 2).ClearContents
ST_Dat = Application.Min(R.Range("I2:J2"))
End_Dat = Application.Max(R.Range("I2:J2"))

For k = 3 To Ro - 2

      Bol = Application.Evaluate _
        ("ISREF('" & R.Range("A" & k) & "'!A1)")
    If Bol Then
        Set Act_sh = Sheets(R.Range("A" & k) & "")

        Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row
        For y = 3 To 7
            For x = 5 To Max_ro

                If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _
                   CDate(Act_sh.Cells(x, 1)) <= End_Dat And _
                   Act_sh.Cells(x, 2) <> Mot Then
                   My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _
                     Act_sh.Cells(x, y + 2), 0)

               End If
               
            Next x
            R.Cells(k, y).Value = IIf(My_sum = 0, "", My_sum): My_sum = 0
       Next y
    End If
Next k
'+++++++++++++++++++++++++++++++++

R.Cells(Ro - 1, 3).Resize(, 5).Formula = _
"=Sum(C$4:C$" & Ro - 2 & ")"
R.Cells(Ro, 3).Resize(, 5).Formula = _
"=Sum(C$7:C$18)"

R.Cells(3, 9).Resize(Ro - 3).Formula = _
"=IF(COUNTA($C3:$G3)>0,SUM($C3:$G3),"""")"
R.Cells(Ro, 9).Formula = _
"=SUM(C" & Ro & ":G" & Ro & ")"

R.Range("A3:I" & Ro).Value = _
R.Range("A3:I" & Ro).Value
'&Ntilde;&Oacute;&Ccedil;&aacute;&Eacute; &Egrave;&Ccedil;&aacute;&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &Ccedil;&aacute;&atilde;&Ntilde;&Iacute;&aacute;&Eacute;

MsgBox ("&Ecirc;&atilde; &Ccedil;&Oacute;&Ecirc;&Iuml;&Uacute;&Ccedil;&Aacute;&Ccedil;&aacute;&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc;")
End Sub

هل تمت تجربة كود الأخ الكريم أبو الحسن ؟؟ يرجى الرد على اجابته وعدم التجاهل ..

استاذى واخى الغالى
استاذ سليم ربنا يكرمه مدنى بمعادلات ولكن المعادلات مغلبانى جداااا
والاستاذ ابو الحسن مشكور جدااااا اخى
لو امكن كود لاحضارالبيانات بالتاريخ اكون شاكرة فضلكم

عندما كتبت لك كود بهذا الموضوع اردتي ان تعملي على المعادلات
بردو أدرجت كل المعادلات اللازمة (الوقت ليس لك وحدك)
والآن لماذا تغيرين رأيك؟؟
ليست المرة الاولى التي أقول فيها
لا ترفعي ملفات بدون بيانات(سطرين لا يكفيان و لست ملزماً بادراج بيانات ولو كانت عشوائية )
ولا تستعملي اللغة العربية لتسمية الشيتات
تم وضع الكود اللازم
الكود

Option Explicit

Sub My_Summation()
Dim R As Worksheet, Sh As Worksheet
Dim Date1 As Date, Date2 As Date
Dim K%, Ro_r%, Ro_sh%, x%, col%, t%
Dim Look_Range As Range, Bol As Boolean
Dim My_sum#

Set R = Sheets("Repport")
Date1 = Application.Min(R.Range("d2:e2"))
Date2 = Application.Max(R.Range("d2:e2"))
Ro_r = R.Cells(Rows.Count, 1).End(3).Row

For K = 2 To 3
    Set Sh = Sheets(R.Cells(1, K) & "")
    Sh.Range("A1").CurrentRegion.Interior.ColorIndex = xlNone
    Set Look_Range = Sh.Range("A1:Ac1")
    Ro_sh = Sh.Cells(Rows.Count, 1).End(3).Row
        For x = 2 To Ro_r - 1
            If Not Bol Then
            col = Look_Range.Find(R.Cells(x, 1), lookat:=1).Column
            Bol = True
            End If
          
          For t = 2 To Ro_sh
            If Sh.Cells(t, 1) >= Date1 And Sh.Cells(t, 1) <= Date2 Then
             My_sum = My_sum + Val(Sh.Cells(t, col))
             Sh.Cells(t, col).Interior.ColorIndex = 35
            End If
          Next t
          R.Cells(x, K) = My_sum: My_sum = 0: Bol = False
       Next x
Next K
End Sub

الملف مرفق

حاضر والله
حضرتك عبقرى
ايه الحلاوة دى اقسم بالله حاجة حلوة جدااااااااااااااااااااااااااااااااا
يا استاذ انت استاذ ورئيس قسم ومبرمج من الطراز الاول وكل حاجة حلوة اقسم بالله اخى
شكر مصحوب بالدعاء ومعه خجل من كرمك عليا جدا بجدا انا مش عارفة اشكرك ونفسى ارد جمايلك عليا والله
ربنا يكرمك انت بتكرمنى وانا بدعي لك من قلبى والله
حضرتك جمايلك على راسى يا استاذ سليم يا محترم جداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

استاذى سليم حفظك الله اريد الاستفادة من هذا الملف الرائع فى شيت متابعة مخزن
باضافة عمودين رصيد سابق منه ورصيد سابق له فى صفحة Repport
بحيث عند كتابة تاريخ فى الخلية الاولى من والخلية الى
يحضر كل البيانات التى قبل التاريخ الاول فى منه وفى له ليكون الرصيد السابق
يعنى لو كنا كاتبين تاريخ من 15/8/2020 الى 15/9/2020 يحضر بيانتهم كما يفعل الان اضافة ال كل التواريخ التى قبل 15/8/202 فى منه وفى له لتكون الرصيد السابق
لو امكن يبقى اكثر الله خيرك الصراحة الملف ينفع كل المحاسبين جداااااااااااا وبميزان حسناتك ان شاء الله
احترامى اخيك

أخي العزيز أبا الحسن
يجب ألا تتداخل الموضوعات ، قم بطرح موضوع يخص طلبك بشكل مستقل حفاظاً على نظام المنتدى.