Write data to different sheets depending on cellvalue

Hi,
I want to write data from one sheet (weekoverview with lot of rows ) to different sheets depending on the value of 1 column containing days (Monday, tuesday, wednesday,...).
There is an error in my code and i can't find the solution for this moment.
Is there anyone who can help me with this?
The code for this moment is only written as test for splitting Monday's and Tuesday's.

This is the code;

Please Login or Register  to view this content.

Kind regards