Import data and paste it after the last row

[jeremiah_j2k]

Hello,

Need some advise and your expertise to modify my macro so it will add the imported data after the last entry on my existing table. currently, the code copy and paste the data to row 2 of the Database sheet but I am keeping records to that table would just like to update it instead of overwriting the data that i have. Can you advise how to make the macro add the imported data to the last row of the Database sheet? Thanks in advance for your help.

Sub Import_RAW()
    Application.ScreenUpdating = False
    'Selection.AutoFilter
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Import"
        .Filters.Clear
        '.Filters.Add "Excel Files", "*.csv"
        '.Filters.Add "CSV File", "*.xlsx"
        .Title = "Ticket Rating"
        .Show
        If .SelectedItems.Count Then
            strFileSelected = .SelectedItems(1)
        Else
            'MsgBox "Cancelled by user!"
            Exit Sub 'Ideally, should exit from the bottom of the sub-routine.
        End If
    End With
    'Worksheets("Database").Range("A2:q10000").ClearContents
    Range("AD1").Value = VBA.FileDateTime(strFileSelected) '& " +8 GMT"
 
    fncFileSelected = strFileSelected

    With Workbooks.Open(Filename:=fncFileSelected, ReadOnly:=True)
        .Sheets(1).Cells(1).End(xlToRight).Offset(, 2).Resize(, 17).Value = ThisWorkbook.Worksheets("Database").Range("A1:q1").Value
        .Sheets(1).Cells(1).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Sheets(1).Cells(1).End(xlToRight).Offset(, 2).CurrentRegion, Unique:=False
        With .Sheets(1).Cells(1).End(xlToRight).Offset(, 2).CurrentRegion
            ThisWorkbook.Worksheets("Database").Range("A1:q1").Resize(.Rows.Count, .Columns.Count).Value = .Value
        ActiveWorkbook.RefreshAll
        End With
        Workbooks(.Name).Close 0
        ActiveWorkbook.RefreshAll
   
       
    End With

End Sub

 

[jeremiah_j2k]

file can be found here

 

[Alex Blakenburg]

I haven't tested this but I think all you are after is to replace your output line with this:

            ThisWorkbook.Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value

 

[jeremiah_j2k]

Hi Alex,

Thank you for your feedback.. i replaced the output line, however, i the imported data is still overwriting the existing entries on the table on Database sheet instead of adding it to the end of the row

 

[Alex Blakenburg]

If you want to Append the data to what is in the Database sheet, why are you clearing the Database sheet ?

    Worksheets("Database").Range("A2:q10000").ClearContents

 

[jeremiah_j2k]

ohh yeah i should have commented that out like in the macro in my initial post.. it's now pasting the imported data to the end of the row but it includes the column label as shown in the attached image

 

[Alex Blakenburg]

Can you give me a sample csv ?

 

[jeremiah_j2k]

Hi Alex.. Here's the file and the data i am importing.. thanks
file can be downloaded here

 

[Alex Blakenburg]

I wouldn't normally do it this way and its a bit ugly but you can just add offset 1 row to your code.

With .Sheets(1).Cells(1).End(xlToRight).Offset(, 2).CurrentRegion.Offset(1)

 

[jeremiah_j2k]

Hi Alex, it worked! thanks so much for the help. I appreciate it