I have a excel sheet that has only four rows of numbers and a fith row that is the average, no big deal. see below

before solver

54

53

21

62

Average = 47.5

after solver

76.5

75.5

43.5

84.5

Average = 70.0

Now i have the solver doing a calculation that i have the average to be 70 and it will adjust the top four rows to total a 70 in the average. how can i do this in vb without solver, is there a calcualtion?