Recuperer les valeurs d'un Label

Bonjour,
Comment je peut remvoyer la valeur de mon label1 et 2 vers les cellules A1,A2
voici mon code actuel,
mon label 1 et 2 qui se trouve sur mon userform

Private Sub Userform_Activate() ' Date et heure sur userform
Label1.Caption = Format(Now(), "hh : mm")
Label2.Caption = Format(Now(), "mm/dd/yyyy"

Cordialement
Max