Sheets for every week + start and ending date of the week

Hi,

I'm new to this forum, so I hope I do it correct
For my school, I have to make a week schedule in excel with a sheet for every week of the year.
Each sheet is named after a week. In every sheet the weeknumber + start and ending date must be mentioned.

Now I use a list with all the weeks + start date and ending date of that week.

Sub Makeyear()
    Dim MyCell As Range, MyRange As Range
    
    Set MyRange = Sheets("weeks").Range("A1")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets("scheme").Copy After:=Sheets(Sheets.Count) 'creates a new worksheet
        Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
        
    Range("D34").Select
    ActiveCell = MyCell
    Range("B2").Select
        
    Next MyCell
    
End Sub

I can't find a way to input the start and ending date automatically.

Also, I'd like to make it without the list. A student will only have to input a a starting date and ending date. Excel will then automatically generated the weeks/sheet in between.

Is there a solution for this?

Thanks for your help