This is the code I've developed so far and also a list of about the first 20 records in the table.
Sub CombineRegHours()
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim strSQL As String
Dim sun, mon, tue, wed, thu, fri, sat As String
strSQL = "SELECT reg_Sun...