Help with macro shortening

[M4RSH]

Hi All,

I'm working on a little project for a friend and the below macro is one of two macros that are my final sticking points. My Questions with this macro are - can the below be simplified? & I need to repeat this macro to a further 14 times, moving the cell selection down 15 rows each time (with the exception of the final 2 points - inputing day, month, year, input name & changing sheet & saving) - is there an easy way to do this?

    Range( _
        "W16:X19,T16:U19,Q16:R19,N16:O19,K16:L19,H16:I19,E16:F19,D10:E10,G10:H10,J10:K10,M10:N10,P10:Q10,S10:T10,V10:W10" _
        ).Select
    Selection.ClearContents
    
    Range("D20:F20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("D21:F21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("D22:F22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("G20:I20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("G21:I21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("G22:I22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("J20:L20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("J21:L21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("J22:L22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("M20:O20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("M21:O21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("M22:O22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("P20:R20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("P21:R21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("P22:R22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("S20:U20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("S21:U21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("S22:U22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("V20:X20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("V21:X21").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("V22:X22").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("D10:E10").Select
    
    Range("Q5:Q6").Select
    ActiveCell.FormulaR1C1 = "Day"
    Range("R5:T6").Select
    ActiveCell.FormulaR1C1 = "Month"
    Range("U5:U6").Select
    ActiveCell.FormulaR1C1 = "Year"
    Range("AF5:AG6").Select
    ActiveCell.FormulaR1C1 = "INPUT NAME"
    Range("D10:E10").Select

    Sheets("Menu").Select
    ActiveWorkbook.Save