title: How to reflect a date stamp log that does not overwrite the one before?
body: <p>I have an Excel Sheet that I am using to track the status of hiring, where each row is a vacancy's record and one of the cells is a drop down list to change the status of that specific vacancy. Statuses are for example (Advertising, Interviewing, Hired)</p>
  
  <p>What I wanted to do is once I click a status, by the end of the row (let's say last of my record here is Column <code>S</code>, so when I click advertising, a date stamp goes on <code>S</code> and the status itself gets printed there on Column <code>T</code>, and if I choose the 2nd status, it would go on Columns <code>U</code> &amp; <code>V</code> and so on.</p>
  
  <p>What I used so far is something different, that reflects the date stamp based on the corresponding column of that status:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim WorkRng As Range
  Dim Rng As Range
  Dim xOffsetColumn As Long
  
  Set WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
  If Not WorkRng Is Nothing Then
  Application.EnableEvents = False
  For Each Rng In WorkRng
    Select Case Rng.Value2
      Case "Not-initiated"
        xOffsetColumn = 100  'Column O
      Case "Adv/Sourcing"
        xOffsetColumn = 9  'Column U
      Case "Interviewing"
        xOffsetColumn = 10  'Column Q
      Case "Offering &amp; Selection"
        xOffsetColumn = 11  'Column R
      Case "Onboarding"
        xOffsetColumn = 12  'Column S
      Case "Contract Signed"
        xOffsetColumn = 13  'Column U
      Case "Joined"
        xOffsetColumn = 14  'Column Q
      Case Else
        xOffsetColumn = 101  'Column T - entry not listed above
    End Select
    Rng.Offset(0, xOffsetColumn).Value = Now
    Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
  Next
  Application.EnableEvents = True
  End If
  End Sub
  </code></pre>