title: Copy and append the data in particular range in Excel
body: <p>I need to copy data from sheet1 (<code>P25:Y103</code>) to sheet2 within <code>B63:K1562</code>.</p>
  <p>Sheet1 will have new data every time. This should be copied to sheet2.</p>
  <p>In Sheet2, <code>B1563:K65536</code> has been used for other details. So need to paste the data within that range and not overwrite the existing values.</p>
  <p>I have code to copy the contents but it will overwrite the existing data.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub CopyDatetoSameWorkBook()
      Dim rgSource As Range, rgDestination As Range, X As Range
      Dim Length As Long
      Length = Cells(25, 2).End(xlDown).Row
  
      Set rgSource = ThisWorkbook.Worksheets(&quot;Sheet1&quot;).Range(&quot;P25:Y&quot; &amp; Length)
      Set rgDestination = ThisWorkbook.Worksheets(&quot;Sheet2&quot;).Range(&quot;B63&quot;)
  
      rgSource.Copy
      rgDestination.PasteSpecial xlPasteValues
  
      Set rgSource = ThisWorkbook.Worksheets(&quot;Sheet1&quot;).Range(&quot;Z25:AG&quot; &amp; Length)
      Set rgDestination = ThisWorkbook.Worksheets(&quot;Sheet2&quot;).Range(&quot;N63&quot;)
  
      rgSource.Copy
      rgDestination.PasteSpecial xlPasteValues
  
      ActiveWorkbook.Save
  
      MsgBox &quot;Sheet1 Data Has been copied to Sheet2 Tabsheet&quot;
  End Sub
  </code></pre>