title: Why is my VBA code not appending data but instead replacing data in the workbook?
body: <pre><code>Dim lastrow As Long, lastrow2 As Long
  
  Dim wksSource As Worksheet, wksDest As Worksheet
  
  Dim source1 As Range, target1 As Range, source2 As Range, target2 As Range
  
  Set wksSource = Workbooks("2021 Tracker.xlsm").Worksheets("Sheet3")
  
  Set wksDest = Workbooks("Jan Tracker).xlsm").Worksheets("Sheet1")
  
  lastrow = wksSource.Cells(Rows.Count, 1).End(xlUp).row
  
  lastrow2 = wksDest.Cells(Rows.Count, 1).End(xlUp).Offset(1,0).row
  
  Set source1 = wksSource.Range("A2:A" &amp; lastrow)
  
  Set source2 = wksSource.Range("B2:B" &amp; lastrow)
  
  Set target1 = wksDest.Range("E" &amp; lastrow2)
  
  Set target2 = wksDest.Range("F" &amp; lastrow2)
  
  source1.Copy: target1.PasteSpecial Paste:=xlPasteValues
  
  source2.Copy: target2.PasteSpecial Paste:=xlPasteValues
  </code></pre>
  
  <p>This code replaces data in columns E and F of destination workbook, but i want it to append to it. Please help.</p>