Где может быть ошибка?

Private Sub Worksheet_Change(ByVal Target As Range)
 
        Dim Dist(), Corr(), Vol(), Mass(), Price(), Sales_Package(), Comment(), i&, outfile As Object
        Dim LastRow As Long
        
        LastRow = Range("A5").End(xlDown).Row
        
        
        Dist = Range("S5:S" & LastRow).Value 
        Corr = Range("T5:T" & LastRow).Value 
                               
        Vol = Range("I5:I" & LastRow).Value 
        Mass = Range("J5:J" & LastRow).Value 
        Price = Range("R5:R" & LastRow).Value 
        Sales_Package = Range("P5:P" & LastRow).Value 
        Comment = Range("AK5:AK" & LastRow).Value 
        
        ReDim Total_Vol(1 To UBound(Dist), 1 To 1)
        ReDim Total_Mass(1 To UBound(Dist), 1 To 1)
        ReDim Total_Price(1 To UBound(Dist), 1 To 1)
        
        ReDim Total_Corr_Vol(1 To UBound(Dist), 1 To 1)
        ReDim Total_Corr_Mass(1 To UBound(Dist), 1 To 1)
        ReDim Total_Corr_Price(1 To UBound(Dist), 1 To 1)
        
        'ReDim Comment(1 To UBound(Dist), 1 To 1)
        'ReDim S_Package(1 To UBound(Dist), 1 To 1)
        
 
    '==========================================================================================
    
    If Not Application.Intersect(Target, Range("S5:S" & Rows.Count)) Is Nothing Then
            
        For i = 1 To UBound(Dist)
            
            If Sales_Package(i, 1) = 0 Then
                Sales_Package(i, 1) = 1
            End If
            
            If Dist(i, 1) / Sales_Package(i, 1) - Fix(Dist(i, 1) / Sales_Package(i, 1)) = 0 Then
                Comment(i, 1) = "Коробка"
                               
            End If
            If Dist(i, 1) / Sales_Package(i, 1) - Fix(Dist(i, 1) / Sales_Package(i, 1)) > 0 Then
                Comment(i, 1) = "-"
            End If
        Next i
        
        ActiveSheet.Range("AK5:AK" & LastRow).Value = Comment
        
    End If
    
    '==========================================================================================
End Sub

...Cells(***,***).Value="'-"