Selected calendar date to cell on worksheet

[ipbr21054]

I have a calendar which open when i click on a cell in range H8:H26
The current date pops up & clicking on it i then see a large calendar open & that months days are shown "see screen shot"
I then select a date & the large calendar closes.
Please advise code or advise how i now have that date entered in the cell that i had selected for the calendar to open.

Thanks

 

[ipbr21054]

This gives me compile error type missmatch

Private Sub DateTransfer_Click()
            Dim sh As Worksheet
            Dim r As Range
            
            
            Set sh = Sheets("GRASS")
            Set r = ("H8:H26")
                sh.Cells(.Column, "H").Value = CDate(Datepicker1.Value)
                MsgBox "DATE APPLIED TO WORKSHEET", vbInformation, "DATE TRANSFER MESSAGE"
    
End Sub