Private Sub Worksheet_Change(ByVal Target As Range)

' * ' Initialize
      Const Dato_Area As String = "B2:B10"
      Const Dato_Cell As String = "B1"

      If Target.Cells.Count > 1 Then Exit Sub
      If Intersect(Target, Range(Dato_Area)) Is Nothing Then Exit Sub
      If Target.Value < 1 Then Exit Sub


' * ' Write newest entered date into specified cell
      Range(Dato_Cell).Value = Target.Value

End Sub