Since you didn't specify where to put the collected values, this will drop
them into range A1:D141. Of course you'll want to modify to put them where
you really want them:

Sub myCalcsCollector()

Dim myNum as long

For myNum = 10 to 150
Range("H8") = myNum
application.calculate
cells(myNum - 7, 1) = myNum
cells(myNum - 7, 2) = range("I8")
cells(myNum - 7, 3) = range("J8")
cells(myNum - 7, 4) = range("K8")
Next myNum

If automatic calculation is turned on, then of course you don't need the
line to force calculation.

"cferoiu" wrote:

I have 4 cells: H8 I8 J8 K8
If change H8, I8 J8 K8 cells have variable value.
I want to change values of H8 from 10 to 150 and collect all 4 cells value
in columns AF AG AH AI.

Please help me with same VBA code. Thanks.