Name Each Range Of Rows With Consecutive Dates

I filled sheet1 with the following

Set SourceRange = Worksheets("Sheet1"). Range("A8:A73")
Set fillRange = Worksheets("Sheet1").Range("A6:A64000")
SourceRange.AutoFill Destination:=fillRange

This filled cells with 7:00 AM, 7:15, 7:30.....11:00 PM all the way down to row 64000,in colum A, 65 rows at a time.

After this, I selected rows 8 to 73 and named it Friday_July_7.

How do I name each chunck of 65 rows based on the prior day, the first range idealy named from a variable assigned to the Now method and incremented with a loop?...or something

I also set a "TODAY" button and a range "SHOWDAY", in the (frozen) first 7 rows of sheet1 to show the current day with the following code.

Private Sub TODAYBUTTON_Click()
Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 8
Range("SHOWDAY").Select
Range("SHOWDAY").ClearContents
Range("SHOWDAY").Value = Now
End Sub

In a perfect world, opening the workbook would activate a procedure that would display the current day in "SHOWDAY" and also scroll to the cooresponding range. clicking the today button would do the same. From here I could refrence each days worth of data by its range name.