احتمال الرد يكون متأخر شوي و لكن تفضل
Dim B8 As Single, NewB8 As Single, Result As Single, Factor As Single
B8 = 547.05
NewB8 = B8 - 50
Select Case NewB8
Case 0 To 250: Factor = 6
Case 251 To 500: Factor = 6.5
Case 501 To 1000: Factor = 7
Case 1001 To 5000: Factor = 7.5
Case 5001 To 10000: Factor = 8
End Select
Result = Round(NewB8 * Factor / 1000, 2)