Adding Data to more Data

My problem so far is trying to combine data from separate sheets into one.

In other words, just an update without deleting prior data.

I have some code here that will shed some light;

  Private Sub copyDataFromCsvFileToSheet(parFileName As String, _
parDelimiter As String, parSheetName As String)

Dim Data As Variant  'Array for the file values

'Function call - the file is read into the array
Data = getDataFromFile(parFileName, parDelimiter)

'If the array isn't empty it is inserted into
'the sheet in one swift operation.
If Not isArrayEmpty(Data) Then
  'If you want to operate directly on the array,
  'you can leave out the following lines.
  With Sheets(parSheetName)
    'Delete any old content
   .Cells.ClearContents
    'A range gets the same dimensions as the array
    'and the array values are inserted in one operation.
    .Cells(1, 1).Resize(UBound(Data, 1), UBound(Data, 2)) = Data
  End With
End If
End Sub

If you already do have data that you don't want to overwrite, then it sounds like you simply need to first determine where that data ends. The new data you add will be added after the data you already have.

This statement might help.

last_row = Cells(Rows.Count, 1).End(xlUp).Row

It determines the last row in column 1 that has data in it. Your data would start at last_row + 1, for example.

How can I incorporate last_row = Cells(Rows.Count, 1).End(xlUp).Row into the above code?

I ended up being able to transfer data without having to delete prior.
Now Im having trouble selecting the column headers along with the data when added to previous data.
I dont want the column header, just the data.

Sub RefreshData()

Dim sPath As String


sPath = ThisWorkbook.Path & "\Data_File.csv"


copyDataFromCsvFileToSheet sPath, ",", "Sheet1"


End Sub
Private Sub copyDataFromCsvFileToSheet(parFileName As String, _
parDelimiter As String, parSheetName As String)


Dim Data As Variant


Data = getDataFromFile(parFileName, parDelimiter)


If Not isArrayEmpty(Data) Then
  
With Sheets(parSheetName)


lr = Cells(Rows.Count, 1).End(xlUp).Row
    
.Cells(lr, 1).Resize(UBound(Data, 1), UBound(Data, 2)) = Data
  End With
End If
End Sub