Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Columns(5)) Is Nothing Then
ThisWorkbook.Save
Exit Sub
End If
If Intersect(Target, Sh.Columns(1)) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Hour(Now), "00") & "h" & Format(Minute(Now), "00")
ThisWorkbook.Save
End Sub