在excel中遇到运行时错误13的问题

Question

这是我第一次来到这里，第一次使用vba，我正在使用Windows 7 excel 2010.基本上我有两列，第一次我有员工ID作为数字字段而在第二个缺失的日子也是数字。我的目标是遍历所有第二列，并为第一列中的员工添加总缺失天数（已经排序）。我尝试了它，但我一直收到运行时错误13，我不确定为什么，因为我验证了字段＆＃39;值是数字。这是我到目前为止的代码，提前感谢：

Option Explicit    
Sub convert()         
    Dim Total As Integer          
    Dim LastRow As Integer, i As Integer    
    Total = 0     
    LastRow = Cells(Rows.Count, "O").End(xlUp).Row     
    For i = 2 To LastRow      
        If Cells(i, 11).Value = Cells(i + 1, 11).Value Then Total = Total + Cells(i, 15).Value     
        Else:  Cells(i, 18).Value = Total   
    Next i                                   
End Sub