create duplicate rows of records based on criteria

Sub BreakOut()
Dim LastRow As Long, i As Long
Dim StartDt As Date
Dim EndDt As Date
Dim myName As String
Dim myHours As Variant
Dim pr As Long

LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
pr = 2
 
With Sheets("Sheet2")
    .Range("A1") = "Start"
    .Range("B1") = "Role"
    .Range("C1") = "Hours"
End With
 
For i = 2 To LastRow
 
StartDt = Sheets("Sheet1").Range("A" & i)
EndDt = Sheets("Sheet1").Range("B" & i)
myName = Sheets("Sheet1").Range("D" & i)
myHours = Sheets("Sheet1").Range("E" & i) / Sheets("Sheet1").Range("C" & i)
    
   Do Until StartDt > EndDt
        
        With Sheets("Sheet2")
            .Range("A" & pr) = StartDt
            .Range("B" & pr) = myName
            .Range("C" & pr) = myHours
        End With
        
    StartDt = StartDt + 1
    
    pr = pr + 1
    
    Loop
    
Next