Complement de macro

Bonjour à Tous,

j'ai un fichier facturation comprenant une macro
dans le fichier macro j'ai 4 sheet

"Data" comprenant mes textes label d'article
"Offer" comprenant mes mon editeur de facture
"Records" comprenant mon journal de facturation
"Subcon" comprenant mes coordonnées de clients

la macro que je possède est la suivante :

Sub Bouton1_QuandClic()
'
' Bouton1_QuandClic Macro
Sheets("Records").Select
num = Range("A65536").End(xlUp).Value
Lieu = Range("A65536").End(xlUp).Address
num = num + 1
Range(Lieu).Offset(1, 0) = num
Range(Lieu).Offset(1, 1) = Date
Range(Lieu).Offset(1, 2) = Time
Sheets("Offer").Select
Range("f4").Value = num
End Sub

j'aimerais ajouter des fonctions a cette macro mais je suis un peu perdu.
y-a-t'il une âme charitable qui voudrait bien complèter ma macro pour les points suivants
j'aimerais qu'aprés validation du boutons, il me complète dans le sheet "Records" comme il le fait automatiquement avec le Num de facture , date, time
en colonne 4 "soit D" la valeur de la cellule "E9" du Sheet "Offre" (pour info cette celulle contient une fomule de rechercheV)
en colonne 5 "soit E" la valeur de la cellule "G37" du Sheet "Offre" (pour info cette celulle contient une fomule de somme)

attention suis débutant si possible de me corriger la macro directement je ferais un copy/paste directement.
d'avance merci pour votre aide et votre temps.

stef.