title: Copy and Paste (transposed & values) a set range in a different sheet in the next empty row
body: <p>I have some data in <code>range P1:R13</code> on a sheet called Training Analysis.
  I want to <code>copy and paste</code> these data on a second sheet called Foglio1. I want it to be just <code>values</code>. I need these data to be pasted in a <code>range A2:M4</code>, in other words I want it to be transposed. 
  I got the following code and it is working. But now, when I get new data I need to paste them under those I already have. </p>
  
  <pre><code>Sub add()
      Dim lastrow As Long
      lastrow = Sheets("Foglio1").Range("A65536").End(xlUp).Row    ' or + 1
      Range("P1:R13").Copy Destination:=Sheets("Foglio1").Range("A" &amp; lastrow)
  End Sub
  </code></pre>
  
  <p>It does the empty space but I don't know how to change it to make it transpose the data and give me only values. 
  Can you help me change it ? If you have new options its fine too.
  Cheers</p>