Problem with a calendar

Hi everyone

I have managed to find a calendar from another post here that really suits my need with a Workbook .

I have managed to input some VBA code although I'am really not very good at this, that makes the Calendar show when specific cells are clicked within the caseloads sheet. Those being H8:H1000 and I8:I1000. However when the calendar is clicked for a date it doesnt input the date seleceted into the cell selected

Is anyone able to help me with this it would be really appreciated.

I have attached cut down version of the work book to help.

Thank You in advance

Ortz