Fastest way to enter many formulas
 

I guess you can diregard this thread now.

I got it to work as such

Worksheets("Data").Range("A1").Resize(LastRow).Pas teSpecia
Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

And it was about 30 times faster :

--
ob3ron0
-----------------------------------------------------------------------
ob3ron02's Profile: http://www.excelforum.com/member.php...fo&userid=1545
View this thread: http://www.excelforum.com/showthread.php?threadid=27277