Sub CalculateSlices()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row 'احتساب عدد الصفوف الغير فارغة في العمود A
    
    Dim i As Long
    For i = 2 To lastRow 'البدء من الصف الثاني ، حيث أن الصف الأول يحتوي على عنوان العمود
    
        Dim amount As Double
        amount = Cells(i, "A").Value 'احتساب قيمة المبلغ من العمود A
        
        Dim slice1 As Double
        slice1 = 0
        Dim slice2 As Double
        slice2 = 0
        Dim slice3 As Double
        slice3 = 0
        
        If amount <= 10000 Then 'تحديد الشريحة المناسبة
            slice1 = Round(amount * 6 / 10000, 0)
        ElseIf amount > 10000 And amount <= 40000 Then
            slice1 = Round(10000 * 6 / 10000, 0)
            slice2 = Round((amount - 10000) * 12 / 10000, 0)
        ElseIf amount > 40000 And amount <= 100000 Then
            slice1 = Round(10000 * 6 / 10000, 0)
            slice2 = Round(30000 * 12 / 10000, 0)
            slice3 = Round((amount - 40000) * 24 / 10000, 0)
        Else
            MsgBox "المبلغ المدخل يتجاوز المبلغ الأقصى المسموح به."
            Exit Sub
        End If
        
        Cells(i, "B").Value = slice1 + slice2 + slice3 'تحديد القيمة النهائية للمبلغ في العمود B
        
    Next i
End Sub