excel - Vba to reference a cell but remain static in the new cell -

my workbook has data automatically loaded in yahoo finance. data being refreshed. need formula can take referenced cell , produce number value of cell without updating whenever referenced cell does. example: cell g3 40.75 stock value , need d2 40.75 except remain 40.75 when g3 updates new price.

i have tried using =numbervalue($g$3) still updates when data refreshes.

update

this vba code have paste date , time in active cell (which correct) paste price (g3) in cell of d2.

sub timestamp() ' ' timestamp macro ' ' keyboard shortcut: ctrl+shift+t '     activecell.formula = "=concatenate(l1,n1)"     activecell.select     selection.copy     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false     application.cutcopymode = false      range("d2").value = range("g3").value end sub 

my problem need range("d2").value = range("g3").value part of code recognize next empty cell in column d. currently, replace whatever data in d2 cell.

you can write on macro first empty row on column d replacing line:

range("d2").value = range("g3").value 

with one:

activesheet.columns(4).end(xldown).offset(1, 0).value2 = range("g3").value2 

regards,