نوشتن دستور در SheetChange

[master]

با سلام
یه جدولی دارم که یکی از ستون هاش تاریخ و یکی دیگه ش مبلغ هست (البته چند ستون دیگه هم داره که کاریش ندارم)
من میخوام توی ستون بعد از مبلغ یه ستون دیگه به نام جمع مبالغ روزانه رو داشته باشم
فرض کنید این جدول هست:
1394/04/01 500.000
1394/04/01 250.000
1394/04/01 750.000 1.500.000
1394/04/02 420.000 420.000
1394/04/03 100.000
1394/04/03 220.000 320.000

اون ستون سوم رو هر جوی توی خود اکسل فکر کردم نتونستم پیاده سازی کنم برا همین رفتم سراغ VBA(ستون اول و دوم ر وارد میکنم میخوام ستون سوم رو محاسبه کنه)
کد زیر رو نوشتم و توی SheetChange قرار دادم ولی مشکل داره:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim i As Integer
    Dim j As Integer
    Dim m As Integer
    Dim n As Integer
    Dim RowNumber As Integer
    
    'RowNumber = ActiveSheet.Range("A65536").End(xlUp).Row
      
        'For i = 2 To RowNumber
        For i = 2 To 50
        j = i + 1
        If Cells(i, 2).Value <> Cells(j, 2).Value Then
        m = i
        n = i - 1
        Do While Cells(m, 2).Value = Cells(n, 2).Value
        Cells(i, 9).Value = Cells(i, 9).Value + Cells(m, 8).Value
        m = m - 1
        n = n - 1
        Loop
        End If
        Next i

End Sub 

اول اینکه نمیدونم چرا موقع اجرا به خط RowNumber = ActiveSheet.Range("A65536").End(xlUp).Row ایراد میگرفت! دلیلش چی هست؟ همین کد رو توی فایل دیگه امتحان کردم مشکلی نداشتم ایا با بقیه قسمت ها همخونی نداره؟
خلاصه دیدم گیر میده غیر فعالش کردم دستور for رو هم به جای i = 2 To RowNumber موقتا i = 2 To 50 گذاشتم کد اجرا بشه ببینم چی میشه
اما بعد از اجرای این کد میافته توی بی نهایت و دائم داره حساب میکنه
مشکل چی هست؟ چطور میشه حلش کرد؟
من خودم فکر میکنم چون خود ستون سوم دچار تغییر میشه دوباره حساب میکنه و برا همین هیچ وقت تموم نمیشه وتنها چیزی که به ذهنم رسیده بود این که رنج تغییرات رو محدود کنم مثلا بگم اگه تغییرا توی فلان رنج بود کد اجرا بشه اما این رو بلد نیستم پیاده سازی کنم
ضمنا فکر کنم کد یه مشکل دیگه هم داره و باید قبل از حلقه Do While باید Cells(i, 9).Value خالی باشه اما اینجوری نوشتم کار نکرد:
Cells(i, 9).Value =""
ممنون میشم راهنمایی کنید
با تشکر

[master]

سلام
فایل رو پیوست کردم خودم هر کاری کردم درست نشد
ممنون میشم ببینید مشکل از چی هست
با تشکر

[Ali Parsaei]

سلام،
کد احتياج ندارد، تو خانه i2 اين فرمول را نوشته و به پايين درگ کنيد: (البته بايد حتما" تاريخها در جدولتان از کوچک به بزرگ سورت شده باشد)

=if(b3=b2;0;sumif($b$2:b2;b2;h2:$h$2)) 

[master]

ممنون
خیلی عالی جواب داد فقط من به جای 0 از "" استفاده کردم تا خونه ها بدون عدد خالی باشن
حالا جدایی از این فرمول میشه بفرمایید مشکل کدی که خودم نوشتم چیه؟
با تشکر

[Ali Parsaei]

خيلي از متغيير ها را اضافه وارد کرده ايد، ولي اشکال اصلي فکر کنم مربوط به حلقه اي است که loop مي شود، البته خيلي وقت نکردم بررسي کنم، باز اگر فرصت کردم دقيقتر نگاه مي کنم، ضمن اينکه کد درج شده در فايل با کدي که تو سايت گذاشته ايد فرق مي کند،
خلاصه فعلا" بر پايه خود کد شما يک کد نوشته ام شايد به درد بخورد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
    Dim RowNumber As Integer
  
    RowNumber = ActiveSheet.Range("A65536").End(xlUp).Row
         
        If Target.Column < 9 Then
           For i = 2 To RowNumber
              If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
                 Cells(i, 9).Value = Null
                 Else
                 Cells(i, 9).Value = Application.WorksheetFunction.SumIf(Range(Cells(2, 2), Cells(i, 2)), Cells(i, 2), Range(Cells(2, 8), Cells(i, 8)))
              End If
           Next
        End If
End Sub 

[master]

سلام
کد توی فایل رو نسبت به کدی که اینجا گذاشتم تغییر دادم بلکه درست بشه که نشد
در مورد متغییر هم چون زیاد وارد نیستم مثلا اونجاهایی که i+1 هست رو قبلش یه متغییر جدید تعریف میکردم
در هر صورت بابت کد هم ممنون خیلی عالی بود
با تشکر