VBA Cell Formulas

[Glasgowsmile]

Simple VBA I'm implementing into a spreadsheet and I have a few more columns to add but is this is the easiest or most efficient way to go about this?

Sub FormulaMacro()
Worksheets("Data").Range("G10").Formula = "=((E10*100)/(100+F10)*100)/100"
Worksheets("Data").Range("G11").Formula = "=((E11*100)/(100+F11)*100)/100"
Worksheets("Data").Range("G12").Formula = "=((E12*100)/(100+F12)*100)/100"

Worksheets("Data").Range("J10").Formula = "=((H10*100)/(100+I10)*100)/100"
Worksheets("Data").Range("J11").Formula = "=((H11*100)/(100+I11)*100)/100"
Worksheets("Data").Range("J12").Formula = "=((H12*100)/(100+I12)*100)/100"
End Sub

 

[Fluff]

Assuming the formula for G12 is a typo you can do

Worksheets("Data").Range("G10:G12").Formula = "=((E10*100)/(100+F10)*100)/100"

 

[Glasgowsmile]

Assuming the formula for G12 is a typo you can do

Worksheets("Data").Range("G10:G12").Formula = "=((E10*100)/(100+F10)*100)/100"

The E10 and F10 will change to E11 and F11 for each cell automatically?

 

[Glasgowsmile]

Assuming the formula for G12 is a typo you can do

Worksheets("Data").Range("G10:G12").Formula = "=((E10*100)/(100+F10)*100)/100"

Dang, sure enough. Also found I could do G10:G12, G14:G16 etc in a column. Can't believe I didn't know this but thank you!

 

[Fluff]

You're welcome & thanks for the feedback.