title: macro to store RTD data
body: <p>i have written this simple code which i found on <a href="http://www.youtube.com/watch?v=4vh6SAj1Y7U" rel="nofollow noreferrer">using excel macro</a>.</p>
  <pre><code>Private Sub Macro3(ByVal Target As Range)
      If Not Intersect(Target, Range(&quot;A2:A2&quot;)) Is Nothing Then
          Application.EnableEvents = False
          Range(&quot;A3:A31&quot;).Value = Range(&quot;A2:A30&quot;).Value
          Application.EnableEvents = True
      End If
  End Sub
  </code></pre>
  <p>but after creating i cannot find the macro nor can i run it through VBA editor.
  please help me out. i am using <code>ms office 2010</code></p>
  <p><strong>Edits</strong></p>
  <p>what i actually want to implement.</p>
  <p>i have a continuously changing value in A1 cell of my sheet. as soon as it changes i want it to be copied to A2 and value of A2 to A3 and so on...</p>