If Cells(c.Row, 10).Value = "" Then
If Application.WorksheetFunction.IsText(Range("timed1").Cells(c.Row, 1).Value) Or _
Range("timed1").Cells(c.Row, 1).Value = 0 Then t1 = 999 Else _
t1 = Range("timed1").Cells(c.Row, 1).Value
If Application.WorksheetFunction.IsText(Range("timed2").Cells(c.Row, 1).Value) Or _
Range("timed2").Cells(c.Row, 1).Value = 0 Then t2 = 999 Else _
t2 = Range("timed2").Cells(c.Row, 1).Value
If Application.WorksheetFunction.IsText(Range("timed3").Cells(c.Row, 1).Value) Or _
Range("timed3").Cells(c.Row, 1).Value = 0 Then t3 = 999 Else _
t3 = Range("timed3").Cells(c.Row, 1).Value
If Application.WorksheetFunction.IsText(Range("timed4").Cells(c.Row, 1).Value) Or _
Range("timed4").Cells(c.Row, 1).Value = 0 Then t4 = 999 Else _
t4 = Range("timed4").Cells(c.Row, 1).Value
If Application.WorksheetFunction.IsText(Range("timed5").Cells(c.Row, 1).Value) Or _
Range("timed5").Cells(c.Row, 1).Value = 0 Then t5 = 999 Else _
t5 = Range("timed5").Cells(c.Row, 1).Value
Cells(c.Row, 10).Value = Application.WorksheetFunction.Min(t1, t2, t3, t4, t5)
If Cells(c.Row, 10).Value = 999 Then Cells(c.Row, 10).Value = "NTR"
End If