excelde hücreye takvimden secili tarihi ekleme

Excelde ekle menüsünden nesneye tıklayıp oradan sayfaya takvim nesnesi eklediğimizde secili tarihi hücreye nasıl yazdırabiliriz.

hocam makroları inceleyin bir de vb bilgisi gerekebilir.

Private Sub Calendar1_Click()
Range("a1").Value = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
End Sub

kodunu yaz işini görecektir. burada range("a1") a1 hücresinde seçili tarihi gösterir. hangi hücrede göstermesini istiyorsanız a1 yerine istediğin hücre adını yazabilirsin umarım faydalı olur

çok tşk ederim.
Peki formdan hücreye verileri nasıl yazdırabilirim.?