Hi, I need the end formula to copy all the way down to the last cell displayed:


Columns("J:J").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("J1").Select
ActiveCell.FormulaR1C1 = "Line Total"
Range("J7884").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]"
Range("J7885").Select

Can any way help.

Thanks in advance