delete cells until value in equal

hi,

if i have 12 in cell a1 and 24 in cell f1 i want to be able to delete or adjust value in cells b1, c1, d1, e1.

example a1 = 12 b1 = 2, c1 = 4, d1= 7, e1= 11.
i want to delete the values in b1,c1, and adjust d1 to 1 and then adjust f1 to 12 which equale a1.

this can happen in 200 cells
is there a macro that can do this

thank steve

hi raiby

thanks but i have mislead you

the value in all the columns could be different
steve

Originally Posted by stevekirk

hi raiby

thanks but i have mislead you

the value in all the columns could be different
steve

Please Steve , give an example because i don't understand what you want to do.

If i execute my macro, i have

12 1 13 12
6 1 6 6
11 1 3 11
25 1 20 25

According to me, it works. Could you say if you want this result? You don't see the blanks but in fact, there are blanks on the sheet. The columns A and F are the same.

hi,
hi raiby
my numbers where not correct now correct
row 1 12, 2, 4, 7, 13, 26
row 2 6, 1, 2, 4, 6, 13
row 3 11, 1, 4, 4, 3, 12
row 4 25, 6, 3, 16, 20, 45


results should be
row 1 12, 0 0 0 12,
row 2 6, 0, 0, 0, 6, 6
row 3 11, 0 4, 4, 3, 11
row 4 25, 0, 0, 5, 20, 25


i only want it to calcuate until it reaches the last row with data in it

steve