title: Today`s date in an excel macro
body: <p>I am trying to add today's date to column A in sheet2. Each time my macro pastes my selection in sheet1, column B, to a new row in sheet2.</p>
  <p>My script works to add the new row and paste my selection in sheet2, but I can't figure out how I should get the date in column A for the new row in sheet2. Here is the script in my macro;</p>
  <pre><code>Sub move()  
          Dim i As Integer 
          Application.ScreenUpdating = False
          ActiveWorkbook.Sheets(&quot;Sheet1&quot;).Range(&quot;A1,A2,A3,A4,A5&quot;).Copy
         
          Sheets(&quot;Sheet2&quot;).Select
          i = 3
          While Range(&quot;B&quot; &amp; i).Value &lt;&gt; &quot;&quot;
              i = i + 1
          Wend
          Range(&quot;B&quot; &amp; i).Select
     
          Selection.PasteSpecial (xlValues), Transpose:=True
   
          Worksheets(&quot;Sheet1&quot;).Range(&quot;A1:A5&quot;).Clear
   
  End Sub
  </code></pre>