the first this is Completely describe the calendar table in VBA using Constants Variables and functions.
for Example, the Table itself
Public Const CalendarTableAddress As String = "$B$5:$V$14"
Or
Public CalendarTableRng As Range
Sub SetCalendarTableRange()
Set CalendarTableRng = Sheets("Whatever").Range("$B$5:$V$14")
End Sub
Your calendar has 210 cells across 10 Rows to allow for two full months. Looking at the July August calendar on sheet Start Notes 1 the first used Day is Wednesday, which makes the FirstUsedDateCell of the Calendar Range Cell # 7
Public FirstUsedDateCell As Long
Sub SetFirstUsedDateCell()
FirstUsedDateCell = (Day(1st of Month As Date) * 3) - 2
End Sub
The 1st table cell of any given date is
Public Function FirstCellOfDate(Dte As Date) As Long
FirstCellOfDate = (Day(Date) * 3) - 2
End Function
See the attachment here for a logical way to describe a workbook, sheet or table