Copy non contiguous cells to new sheet

Hello,

I am trying to set up a page which holds the info of all workers that worked on a specific given
date.
All workers are in a sheet which holds start and end date of contract and which team they were assigned to.
So far I have come up with a working solution ... the only thing is that it errors out when I try to clear (using clearcontents)
the previous run of the macro. (for another date)
It's specifically the clearcontents which leads to the error ... when I comment it out the code works but then the data might not
be correct if on the given date less workers worked in a team (that is old data is not overwritten!)

Can anyone shed a light on why it errors?? I tried debugging but I can't seem to find it. I thought it might have someting to do
with losing focus on active cell so I tried activating a cell after "clearcontents" but to no avail.

In a nutshell:
There are 2 Sheets (Traject and Ploegen)
The first sheet holds all the workers that worked for us (of course I changed all privacy data)
Second Sheet is the template that needs filling in on a specific date.

I created a macro attached to the button "Ploegen" which calls Sub Copytest with a date as argument.

Any help or pointers in the right direction is greatly appreciated