Excel : copier valeur d'une formule autre page si vide

Je me suis mal exprimé, la valeur de A1 peut changer et j'aimerai garder les valeurs précédentes d'où mon besoin d'enregistrer sous la dernière valeur connue. 

Je connais cette manip mais je pensais plutôt faire cela via une macro si possible. De ce type par exemple : 

Sheets("Feuil1").Range("A1").Copy
Sheets("Feuil2").Range("A2" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Bonjour,

Ci-joint un fichier d'exemple : https://www.cjoint.com/c/LHcoffV4Lbg

Merci pour votre aide. 

En effet trop reduit car je n'ai pas réussi à adapter ton code à mon cas de figure. Je joins un nouveau fichier :https://www.cjoint.com/c/LHcoK5MetYg. 

Objectif est de copie G39 en A1, I39 en b1 et G43 er c1. 

Il reste (peut être un pb)

Tu as des formules du genre =ALEA.ENTRE.BORNES(0;36) qui sont recalculées à chaque changement dans ta feuille, y compris quand on lance la copie via le clic sur OK, ce qui ne permet pas de voir en feuille 1 les dernières valeurs transférées(qui sont remplacées par des nouvelles)?

Si ce n'est pas un pb, ça roule comme ça

sinon tu on peut bloquer le recalcul  automatique en début de procedure OK  et le réactiver à la demande via un petit bouton par exemple, tu dis

Cdlmnt