Date Problem

If you use the Now() function everytime a worksheet recalculates so will Now, do you mean that you want the cell time and date stamped and not change when other cells are changed?

In that case try this, right click the worksheet tab you are using choose view code and paste the below in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E2,G4,I1,K23")) Is Nothing Then ' you get the idea for adding cells
Select Case Target.Value' check the value of the cell you are in
          Case 0' if 0 then time stamp
             Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy - hh:mm")
          Case 1' if 1 time stamp
              Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy - hh:mm")
          Case 2' ...etc
             Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy - hh:mm")
          
          'just continue the list like this for more figures if needed
    End Select
End If
End Sub

This works for me:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E2,G4,I1,K23")) Is Nothing Then ' you get the idea for adding cells
Select Case Target.Value
          Case 0
             Target.Offset(0, 1).Value = Format(Now(), "dd/mm/yyyy - hh:mm")
          Case 1
              Target.Offset(0, 1).Value = Format(Now(), "dd/mm/yyyy - hh:mm")
          Case 2
             Target.Offset(0, 1).Value = Format(Now(), "dd/mm/yyyy - hh:mm")
          
          'just continue the list like this
    End Select
End If
End Sub