Aide macro pleazzzz !

Bonjour !

Je fais mes tout premiers pas en macro, je viens d'enregistrer l'une des premières, mais j'aurais besoin qu'elle fasse un peu mieux (et moi aussi !!).
Il s'agit d'un planning sur un cycle de 28 jours.
La macro selectionne actuellement la formule de D8 (= 1er janvier) pour en faire un copier-coller valeur en F4. Mais tous les ans, l'emplacement du 1er janvier changera, et se retrouvera quelquepart entre D5 et D32.
Je voudrais qu'elle sélectionne automatiquement la date du 1er janvier de l'année en cours, les dates se situant dans la colonne allant de D5 à D8.
Je voudrais aussi savoir ce qu'il faut faire pour un déclenchement direct après activation des macros par l'utilisateur.
Voici la macro telle qu'actuellement :

Sub copiercollerpremierjanv()
'
' copiercollerpremierjanv Macro
'

'
Range("D8").Select
Selection.Copy
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
End Sub

Merci de vos conseils !