dim Commision, Amount

if Amount = 2 then
Commision = 0.4
Amount = Amount - 2
end if
if Amount = 2 then
commision = Commision + 0.399
Amount = Amount -2
end if

etc...

Then put the values back into the sheet.

Good luck, Jzz