Copy Data from Sheet to Sheet

I have a sheet [Sheet4(Week Roster)] that is supposed to show the Week for the date in Cell B2 when a button [CommandButton1] is clicked

It should look in Sheet5 [Full Roster] at Row 5 and then Copy the cells from row 5 to the last used row for the next 7 days [Monday to Friday] and then paste them into Sheet 4 at H5 in Sheet4

A2 in Sheet5 has a formula to match the dates in Sheet4 [=MATCH('Input Sheet'!$B$4,5:5,0)]
A3 in Sheet5 has a formula to ensure the user has chosen a date which is a Monday [=IF(INDEX(4:4,A2)="Monday",TRUE, FALSE)]

The code I have is:

Please Login or Register  to view this content.

This fails with the error message: Run-time error '13': Type mismatch at pos = Sheet5.Range("A2").value

This works on an old version of the file where I had columns B:F [other data] followed by dates was in both sheets but now columns B:F [other data] do not appear in Sheet 5 it just starts with dates in Column C

Can anyone help here??

Thanks for looking

Happy to share file is required

What is in A2 when you get the error?