Stopping An Endless Loop

I have the following VBA in the attatched spreadsheet (seperated so I could upload)

The only problem that I have is that I cannot stop the loop, it constantly keeps going round in a circle.

What im wanting to do is when the Date checked is the End date and the End Time has been checked, to move onto the next row and do it again until it gets to row 40.

Sub Calculate()
Dim CellNo As Integer
Dim CurrentDate As Date
Dim StartDate As Date
Dim EndDate As Date
Dim theDate As String
Dim c As Range
Dim i As Integer
Dim addDate As Integer
Dim DaysHoursSick As Date
Dim StartWorkTime As Date
Dim EndWorkTime As Date
Dim endmarker As String

I've only got this VBA working really under Wednesday so I can make sure it is right before adding it onto the other dates,