title: Copy cell range from CSV and paste on the bottom of a specific sheet
body: <p>I'm taking monthly exported CSVs of customer information and importing them to an existing master worksheet. The front desk staff manually copies and pastes the data into the sheet, causing tons of issues in the accuracy of the data.</p>
  <p>I was put on the task of &quot;simplifying it&quot; so... I decided to make a macro that the front desk can click &quot;update&quot; it will pull up an explorer window, they can select a download CSV for the month, and it will simply copy the range (I have this range within the macro) in that CSV sheet and add it to the bottom of the master worksheet, adding on for the totals of that year.</p>
  <p><strong>Issue:</strong> the CSV I import overwrites the whole sheet that is being targeted for the paste. Any idea how to stop that?</p>
  <pre><code>Sub UpdateServicesData()
  Dim FileToOpen As Variant
  Dim OpenBook As Workbook
  
  FileToOpen = Application.GetOpenFilename(&quot;CSV or Text Files: ,*.csv;*.txt*&quot;, , &quot;Browse for your File to Import&quot;)
  If FileToOpen &lt;&gt; False Then
  Set OpenBook = Application.Workbooks.Open(FileToOpen)
  If OpenBook.Worksheets(1).Range(&quot;A2&quot;).Value &gt;= ThisWorkbook.Worksheets(&quot;Home&quot;).Range(&quot;C3&quot;).Value Then
  OpenBook.Sheets(1).Range(&quot;A2:L10000&quot;).Copy
  
  Workbooks(&quot;TEB.xlsm&quot;).Activate
  Sheets(&quot;Services Data&quot;).Select
  lrTarget = Cells.Find(&quot;*&quot;, Cells(3, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
  Cells(lrTarget + 1, 1).Select
  ActiveSheet.PasteSpecial
  Columns(&quot;A:L&quot;).AutoFit
  Cells(1, 1).Select
  OpenBook.Close False
  
  End If
  End If
  End Sub
  </code></pre>