1-31 daily worksheets (- Sundays)

[Range]

I have a spreadsheet that is a 10mb file and i want to reduce the size of it/simplify it. At the moment every sheet 1-31 [days] has this code in it. 5 Filters like the below.

Private Sub Filter_Click()
    Columns("B:DO").Select
    Selection.EntireColumn.Hidden = False

    Range("B:M,P:Q,T:U,T1,X:AA,AD:AI,AL:AU,AX:BC,BF:BI,BL:BQ,BT:BU,CB:CM,CT:CW,CZ:DC,DF:ES") _
        .Select
     Selection.EntireColumn.Hidden = True
    Range("A1").Select
End Sub

Plus 5 command buttons to populate working hours for staff based on which day of the week it is for EVERY sheet.

Ideally at the start of the month i'd like to just click a populate button and have;

• The first day of the month copied as a template with worksheets being named 1-31 (excluding Sundays),
• With Saturdays being colored Dark Red,
• And with 60 employees names being having their shifts entered in depending on the day of the week (only Mon-Fri)

I'd also like to reduce the filters in every worksheet to 1 main tab at the start of the doc. I appreciate this is quite bit but if someone could help me with this id be very grateful as not sure where to start and i've inherited the spreadsheet from a colleague.

Thanks