title: Store a cell's value to a new row in a specific column every time that cell changes
body: <p>In my nonworking example I use the cell C5 as the cell to enter a value. 
  What I am trying to do is: Every time a new value is entered into the cell C5, that value should be stored in the column A starting from A1 and onwards. </p>
  
  <p><em>(For example: I enter number 1.205 - it gets stored in A1, then I enter number 1.572 - it gets stored in A2, and so on).</em></p>
  
  <p>I know that my method is probably far from correct, so any help is appreciated. I have tried a few different ways to achieve this, but I can't get it to work, maximum I have achieved is being able to store up until the 2nd row of column A. </p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      Dim SourceCell As Range
      Dim CheckCell As Range
      Dim I As Integer
  
      I = 1
      Set SourceCell = Range("C5")
      Set CheckCell = Range("A" &amp; I)
  
      If IsEmpty(CheckCell) Then
          CheckCell.Value = SourceCell         
      ElseIf Not IsEmpty(CheckCell) Then
          I = I + 1
          Set CheckCell = Range("A" &amp; I)
          CheckCell.Value = SourceCell   
      End If
  End Sub
  </code></pre>