title: Command button with 'paste date' function to its next left cell
body: <p>I'd like to create a <code>Commandbutton</code> with functionality to paste a date in to the cell to its left - I need to copy this button below in future. </p>
  
  <p>I am trying: </p>
  
  <pre><code>Private Sub CommandButton2_Click()
      Dim Str As String
      Str = Date
      Range(TopLeftCell).Value = Str
  End Sub
  </code></pre>