I have tried your macro and unfortunately its not working.
I change these values
Set StartRange = Range("A1:A67")
Set Outcell = Range("F1")
I change F1 to N3 and A1:A67 to B3:B70

The start date is in column B and the end date is in column D.

the macro stops at
    If DateValue(CCell.Value) = DateValue(CCell.Offset(0, 1).Value) Then
Also there are a few ' marks suggesting those are comment lines however im not sure if that was intended or not....

thanks again