Automatic change number of cell and store results

Hi,

If I fill in different numbers in cell D3 the numbers in column F change.
I want to create a macro that saves all these numbers
So Macro fills in first 1 in cell D3, result is saved in column F
Macro fills in 2 in cell D3 result is stored in column G.
This untill 50
I made already an example (see attachment)

Thanks for the help!

Hi,

Maybe a stupid question, I used macros before but if I paste this code in the VBA editor, and play. It does not find the code.

Is the code page of sheet1 something else?