Macro or Formula needed to summarize Daily Tasks into Weekly Schedule

Forewarning: This is a fairly complicated problem; I'm not even sure it's possible, but I will defer to your higher knowledge and wisdom. Perhaps there is an easier solution that I am overlooking, so feel free to offer alternative suggestions as well.

Duties & Schedule.xlsx

I am building a schedule for work. Our managers plan out an employee's tasks ahead of time each day. That job is performed on the "Daily Duty Assignments" tab. My problem resides in the Schedule tab.

What I need this spreadsheet to do is find the left-most cell containing text in an individual employee's row, and then take the time in the corresponding column and input it into the "Start" column on the Schedule tab. Then I need to do the same exact thing with the right most cell that contains text, and input that time into the "End" column.

The whole idea is to avoid taking the time to create two separate schedules, which contain the same basic data. We use the Daily Duty tab format in our daily operations, but the Schedule tab format is used to post a bi-weekly employee schedule in the back room.

I hope this is possible, and I really appreciate any help and feedback that I can get!

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Please comply with ProtonLeah's request so that I can give you your solution.

"Macro or Formula needed to summarise Daily Tasks into Weekly Schedule"

Option Explicit
Option Base 1
Sub transfer()
    Dim DAILY       As Worksheet, _
        SCHEDULE    As Worksheet, _
        WkNum       As Long, _
        DestColumn  As Long, _
        DOW         As Long, _
        StartHour   As Long, _
        StartTime   As String, _
        ScheduleRow As Variant, _
        ScheduleCol As Variant, _
        Endtime     As Variant, _
        WeekTotals  As Variant, _
        DayTotal    As Variant, _
        RowTotal    As Variant
        
    Set DAILY = Sheets("Daily Duty Assignments")
    Set SCHEDULE = Sheets("Schedule")
    
    WkNum = DAILY.Range("N1").Value
    
    Set ScheduleCol = SCHEDULE.Range("3:3").Find(WkNum, LookIn:=xlValues)
    
    'get the column number
    DestColumn = ScheduleCol.Column
    
    ' find the weeknumber on the schedule sheet and scroll it to the top left
    If ActiveSheet.Name = SCHEDULE.Name Then
        Range(ScheduleCol.Address).Activate
        Application.Goto ActiveCell.Offset(3, 0), True
        ActiveWindow.SmallScroll Up:=5
    End If
    
    'week totals are the columns at the end of each weekday table/range
    WeekTotals = Array("I4:I15", "N20:N31", "N36:N47", "N52:N63", "N68:N79", "O84:O95", "O100:O111")
    
    With DAILY
        For Each DayTotal In WeekTotals
            'set pointer to day of the current week (daily N1)
            DestColumn = ScheduleCol + DOW
            
            'check each cell in rowtotal
            For Each RowTotal In .Range(DayTotal)
    
                If RowTotal > 0 Then
                    
                    'start at column C and move right while it is blank (not working)
                    For StartHour = 3 To RowTotal.Column - 1
                        If .Cells(RowTotal.Row, StartHour) <> "" Then
                        
                            'when none blank cell found then get the employee's row
                            Set ScheduleRow = SCHEDULE.Range("B:B").Find(.Cells(RowTotal.Row, "B").Value, LookIn:=xlValues)
                            ScheduleRow = ScheduleRow.Row
                            
                            'get the start time from row 2 of the current day table and remove the trailing " -"
                            StartTime = .Cells(.Range(DayTotal).Row - 1, StartHour).Value
                            StartTime = Left(StartTime, Len(StartTime) - 2)
                            
                            'the end time is the sum of start time and total hours worked.  If the sum is greater than
                            '12 then get the remainder (assumes p.m.)
                            
                            'convert string value to integer, calculate and return to string
                            Endtime = (CLng(Left(.Cells(.Range(DayTotal).Row - 1, StartHour + RowTotal - 1).Value, 2)) + 1) Mod 12
                            Endtime = Endtime & Right(.Cells(.Range(DayTotal).Row - 1, StartHour + RowTotal - 1).Value, 7)
                            Endtime = Left(Endtime, Len(Endtime) - 2)
                            
                            'write to schedule
                            SCHEDULE.Cells(ScheduleRow, DestColumn).Resize(columnsize:=2).Value = Array(StartTime, Endtime)
                            Exit For
                        End If
                    Next StartHour
                End If 'rowtotal
                
            Next RowTotal
            
            'since there are two columns per day (start/end)
            'increment the day pointer offset
            'note that DOW
            DOW = DOW + 2
            
        Next DayTotal
    End With    'daily
End Sub

Try This Spreadshet:

Run Macro I to populate the weekly schedule from the task list