Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    For Each cell In Target
       If Not Intersect(cell, Range("A2:A40")) Is Nothing Then
            With cell.Offset(0, 5)
               .Value = Time
            End With
       End If
    Next cell
End Sub