Shift bands

Sub GetPay()
Dim MyTable As Range, MyInput As Range, MyTab As Variant, MyData As Variant
Dim lr As Long, r As Long, bd As String, wd As Long, s As Double, e As Double
Dim os As Double, pay As Double, t As Long, w1 As Double, w2 As Double, w3 As Double
Dim dow As String, os2 As Double, wd2 As Long

' Enter the location of the rate table, and the driver start/end table here
    Set MyTable = Sheets("Sheet1").Range("A1:D31")
    Set MyInput = Sheets("Sheet1").Range("H1")
    
' Read the rate table
    MyTab = MyTable.Value
    
' Read the driver table
    lr = MyInput.Offset(100000).End(xlUp).Row
    MyData = MyInput.Offset(1).Resize(lr - MyInput.Row, 6).Value
    
' For each row of the driver table
    For r = 1 To UBound(MyData)
        bd = ""                                                 ' clear the breakdown explanation
        wd = WorksheetFunction.Weekday(MyData(r, 2)) - 1        ' day of week of start time
        s = wd + MyData(r, 2) - Int(MyData(r, 2))               ' adjust the start time to match the rate table
        wd2 = WorksheetFunction.Weekday(MyData(r, 3)) - 1       ' day of week of end time
        If wd = 6 And wd2 = 0 Then wd2 = 7
        e = wd2 + MyData(r, 3) - Int(MyData(r, 3))              ' adjust the end time to match the rate table
        os = 0                                                  ' number of days offset into the table (start)
        os2 = 0                                                 ' number of days offset into the table (end)
        pay = 0                                                 ' clear the pay
        For t = 2 To UBound(MyTab)                              ' check each row of the rate table
            If MyTab(t, 1) <> "" Then dow = MyTab(t, 1)         ' New day of week?
            os = os2
            If MyTab(t + 1, 1) <> "" Then os2 = os2 + 1         ' Next row is a new day?
            
            If MyTab(t, 3) + os > e Then Exit For               ' We're done?
            w1 = IIf(MyTab(t + 1, 3) + os2 < e, MyTab(t + 1, 3) + os2, e)       ' These 3 lines find the amount of time
            w2 = IIf(MyTab(t, 3) + os > s, MyTab(t, 3) + os, s)                 ' that the start/end interval overlaps
            w3 = (w1 - w2) * 24                                                 ' the band interval
            If w3 > 0 Then                                                      ' There is overlap?
                bd = bd & ", " & Format(w3, "#.00") & " hours in " & dow & "/" & MyTab(t, 2) & _
                     " at " & Format(MyTab(t, 4), "$ #.00") & " = " & Format(w3 * MyTab(t, 4), "$ #.00")
                pay = pay + w3 * MyTab(t, 4)                    ' Yes, update the breakdown description and the pay
            End If
        Next t
        MyData(r, 5) = pay                                      ' done with all bands?
        MyData(r, 6) = Mid(bd, 3)                               ' yes, update the results
    Next r
    
    MyInput.Offset(1).Resize(lr - MyInput.Row, 6).Value = MyData       ' Display the results
    
End Sub

=TOROW(SORT(RateBands[Band]))

=LET(start, B3, end, C3,
bands, $U$3:$AA$26,
bandsHeader, $E$2#,
n, (end-start)/TIME(0,1,0),
ts, VALUE(TEXT(SEQUENCE(n,, start, TIME(0,1,0)), "yyyy-mm-dd hh:mm")),
dayIndex, WEEKDAY(ts,2),
time, VALUE(TEXT(ts, "hh:mm")),
hourIndex, INT(time/TIME(1,0,0))+1,
bs, INDEX(bands, hourIndex, dayIndex),
res, BYCOL(bandsHeader, LAMBDA(x, IFERROR(ROWS(FILTER(bs,bs=x)),0)*TIME(0,1,0))),
res
)

=LET(
hoursWorkedPerBand, $E3#*24,
bandsHeader, $E$2#,
rates, BYCOL(bandsHeader, LAMBDA(x, XLOOKUP(x, RateBands[Band], RateBands[Rate]))),
SUM(hoursWorkedPerBand*rates)
)