I tried just writing a macro that did what I think you want rather than to
try to use one of your techniques. I don't know how fast you need it to be
but this takes 2 or 3 seconds on my 2.66Ghz machine. Of course a lot
depends on how long a calc takes.

Sub a()
Dim Counter As Integer
Application.ScreenUpdating = False
For Counter = 1 To 1000
With Worksheets("SrcSheet")
.Calculate
.Range("H1:H256").Copy
End With
Worksheets("DestSheet").Cells(Counter + 1, 1).PasteSpecial
xlPasteValues, , , True
Next
End Sub


--
Jim Rech
Excel MVP