copy and past formulas in Excel 1

[daseffects]

Looking for a more efficient way to copy the formula in I2 on sheet1 and insert into c2:f2 & l2.

Using the recorder I came up w/ the below - but running it shows cells being selected and leave L2 selected.

I've tried modifying it by taking out the select method but get errors when I then use the paste method.


Sub lookup()
'
Range("I2&quot.Select
Selection.Copy
Range("C2&quot.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C2:F2&quot, Type:=xlFillDefault
Range("C2:F2&quot.Select
Range("I2&quot.Select
Selection.Copy
Range("L2&quot.Select
ActiveSheet.Paste
End Sub

 

[robcarr]

range("i2&quot.copy
range("c2:f2,l2&quot.pastespecial xlpasteall

this should do it.


Thanks Rob.

 

[daseffects]

You're a star thanks!