Select Date From Calendat And Copy Into A Cell

I want to make an easy to use timesheet for work. I have a calendar set up on a sheet in a workbook and i want to be able to select any date in this calendar and have it be copied into a cell of my choosing in another worksheet in the same book. I already have the formula set up to auto fill the rest of the week from that date, any ideas how to do the selection and copy and paste part quickly and simply?

I am using a mac so cant use the calendar control function as far as I know, if I'm wrong let me know because it sounds very simple.

I have tried to adapt some code and it all works (I get no error messages) but for the fact that nothing is pasted. What is wrong and is there an easier way?

Sub AddDate()
Dim dt As Range
Dim wc As Range

On Error Resume Next
Set dt = Application.InputBox("Select the date", Type:=8)
Set wc = Application.InputBox("Click on week commencing", Type:=8)
If dt Is Nothing Or wc Is Nothing Then Exit Sub
Range("dt").Select
Selection.Copy
Range("wc").Select
ActiveSheet.Paste
On Error GoTo 0
End Sub