Private Sub Worksheet_Calculate()

    Dim i As Long
    Dim ImpDate As Date
    Dim PrevDate As Date
    

        If Form1.tbStart = True Then
            If N = 0 Then
                N = 1
                
                With wsData
                    For i = 1 To 5
                        .Cells(N, i) = CDate(wsImp.Cells(i, 2))
                    Next i
                    
                    .Range("A1:E1").Copy Destination:=wsWork.Cells(1, 1)
                     
                    .Cells(N, 7) = MaxTime(.Range(.Cells(1, 2), .Cells(5, 2)))
               End With
            Else
                N = N + 1
                
                With wsData
                    For i = 1 To 5
                        ImpDate = CDate(wsImp.Cells(i, 2))
                        PrevDate = CDate(wsWork.Cells(1, i))
                        .Cells(N, i + 8) = ImpDate
                        If ImpDate <> PrevDate Then
                            wsWork.Cells(1, i) = ImpDate
                            .Cells(N, i) = ImpDate            'ImpDate òèïà Date
                            If .Cells(N, i) < .Cells(N - 1, 7) Then
                    .Cells(N, i).Interior.ColorIndex = 3
                            End If
                        End If
                    Next i
                    
                    .Cells(N, 7) = MaxTime(wsWork.Range(wsWork.Cells(1, 1), wsWork.Cells(1, 5))) ' MaxDate òèïà Date

                End With
            End If
        End If

End Sub

Private Sub Worksheet_Calculate()
Init
' ...