Dim rng As Range, DT As Range, Odates, p As Integer
Dim Hr As Integer
Dim Min As Double
Dim Thr As Double
Dim TT As Double
Dim oTime As Double, tTime As Double
Set rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
ReDim Odates(1 To rng.Count + 1, 1 To 2)
For Each DT In rng
Min = Minute(DT.Offset(0, 1).Value) / 60
Hr = Hour(DT.Offset(0, 1).Value)
Thr = ((Min + Hr) / 24)
TT = CDbl(DateValue(DT.Value)) + Thr
DT.Offset(0, 5).Value = TT 'Rem
p = p + 1
Odates(p, 1) = TT
Min = Minute(DT.Offset(0, 3).Value) / 60
Hr = Hour(DT.Offset(0, 3).Value)
Thr = ((Min + Hr) / 24)
TT = CDbl(DateValue(DT.Offset(0, 2).Value)) + Thr
Odates(p, 2) = TT
DT.Offset(0, 6).Value = TT 'Rem
Next DT
'''''''''''''''''''''''''''
Dim EnDt As Double, ct As Integer
Dim Temp, Multi As Boolean
Multi = False
For ct = 1 To rng.Count
Temp = Odates(ct, 1)
Multi = False
On Error Resume Next
Do While Odates(ct + 1, 1) > Temp _
And Odates(ct + 1, 1) < Odates(ct, 2)
If ct > rng.Count + 1 Then Exit Sub
ct = ct + 1
Multi = True
Loop
If Multi = True Then
oTime = Odates(ct, 2) - Temp
tTime = tTime + oTime
rng.Cells(ct, 5).Value = oTime
Else
oTime = Odates(ct, 2) - Temp
rng.Cells(ct, 5).Value = oTime
tTime = tTime + oTime
End If
Next ct
rng.Cells(rng.Count + 1, 5).NumberFormat = "0.00"
rng.Cells(rng.Count + 1, 5).Value = Format(tTime * 24, "0.00") & " Hrs"
MsgBox "Total Time Used equals " & Format(tTime * 24, "0.00") & " Hrs"