VBA for inserting product formula in column cells

[jchungusc]

Hello,

Thanks in advance for any help!

I need to create a macro for inserting a simple product formula in all cells with data adjacent to that cell. I want the macro to insert "=product(G1*I1)" in H1, "=product(G2*I2)" in H2 and so on, down the column until it reaches a cell where no data exists in the cell adjacent to Hx.

Thanks!

 

[didIDo_that]

I'm assuming that there are no blanks from cell G1 down to where you want to stop inserting the formula.

sub ProdFormu()

ActiveSheet.Range("H1").Formula = "=product(G1*I1)"
ActiveSheet.Range("G1").End(xlDown).Select
ActiveSheet.Range("H1",Selection.Offset(0,1)).Filldown

End Sub

 

[alvinwlh]

Can also try:

Range("H1:H" & Range("G" & Rows.count).End(xlUp).Row).FormulaR1C1 = "=PRODUCT(RC[-1]*RC[1])"

 

[jchungusc]

Thanks! Saved me loads of time