Formula global failure to copy range format down to final row

[Jacko1307]

Good morning,

Having a slight problem making excel copy a formula from F2 to FinalRow and keep getting global failure. Code I have so far.
Please can you help me with this conundrum.

Columns("F:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1").Select
ActiveCell.FormulaR1C1 = "AVG"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]" (NOT SURE IF THIS IS PROBLEM)
Selection.NumberFormat = "0.00"
Selection.AutoFill Destination:=Range("F2:F" & FinalRow), Type:=xlFillDefault
Range("F2:F").Select

 

[Fluff]

Just add this to the end of the code

    Columns("G:I").ColumnWidth = 25

 

[Jacko1307]

Just add this to the end of the code

    Columns("G:I").ColumnWidth = 25

Brilliant thank you very much for your help.
Best regards,

Martin

 

[Fluff]

Glad we could help & thanks for the feedback.