Let's put the formula in P5 and then copy P5 from P6 tthru P45:

Sub gsnu()
Range("P5").Formula = "=(E5+F5)/G5"
Range("P5").Copy Range("P6:P45")
Range("P6:P45").NumberFormat = "0.00"
End Sub
--
Gary's Student


"crowdx42" wrote:


Hi again,
so I have recorded a macro where there are two cells being added
together and divided by another cell value. This worked fine on several
pages of the work book but now as I move through the book it is giving
false results.
Is there a problem with what was recorded?
I have listed below and what I want the formula to do is add E+F and
then divide by G and run through a column doing the same thing.
What seems to be happening with the current macro is that it is getting
stuck and is then returning the result for the first cell in the
column.
Any help welcome
Patrick

Range("P6").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-11],RC[-10])/RC[-9]"
Range("P6:P45").Select
Selection.NumberFormat = "0.00"


--
crowdx42
------------------------------------------------------------------------
crowdx42's Profile: http://www.excelforum.com/member.php...o&userid=37749
View this thread: http://www.excelforum.com/showthread...hreadid=573513