<div>
Try the following: <pre><code class="code-10 nolinks" id="code-20-43286378-1">Option Explicit

Public Sub ImportData()
&nbsp; &nbsp; Dim Wb As Excel.Workbook
&nbsp; &nbsp; Set Wb = ThisWorkbook
&nbsp; &nbsp; 
&nbsp; &nbsp; Dim Ws As Excel.Worksheet
&nbsp; &nbsp; Set Ws = Wb.Worksheets("ur data")
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; '// retrieve the last row
&nbsp; &nbsp; Dim Rng As Excel.Range
&nbsp; &nbsp; Set Rng = Ws.Range("A1").EntireColumn
&nbsp; &nbsp; Set Rng = Rng.Cells(Rng.Cells.Count).End(xlUp).Offset(rowOffset:=1)
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; '// file picker dialog
&nbsp; &nbsp; Dim path As String
&nbsp; &nbsp; path = SelectFile
&nbsp; &nbsp; If (path &lt;&gt; vbNullString) Then
&nbsp; &nbsp; &nbsp; &nbsp; ImportCSV csv_file_name, Ws, Rng, "CSVData"
&nbsp; &nbsp; End If
End Sub

&nbsp; &nbsp; '// inspired from:
&nbsp; &nbsp; '// https://renenyffenegger.ch/notes/Microsoft/Office/Excel/Object-Model/QueryTable/CSV
Private Sub ImportCSV(ByVal path As String, ByRef Ws As Worksheet, ByRef Rng As Range, ByVal TableName As String) ' {
&nbsp; &nbsp; With Ws.QueryTables.Add(Connection:="TEXT;" &amp; path, Destination:=Rng)
&nbsp; &nbsp; &nbsp; &nbsp; .Name = TableName
&nbsp; &nbsp; &nbsp; &nbsp; .FieldNames = True
&nbsp; &nbsp; &nbsp; &nbsp; .RowNumbers = False
&nbsp; &nbsp; &nbsp; &nbsp; .TextFilePlatform = 437
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileStartRow = 1
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileParseType = xlDelimited
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileTextQualifier = xlTextQualifierDoubleQuote
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileConsecutiveDelimiter = False
&nbsp; &nbsp; &nbsp; &nbsp; .PreserveFormatting = True
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileCommaDelimiter = True
&nbsp; &nbsp; &nbsp; &nbsp; .PreserveFormatting = True
&nbsp; &nbsp; &nbsp; &nbsp; .RefreshOnFileOpen = True
&nbsp; &nbsp; &nbsp; &nbsp; .SaveData = False
&nbsp; &nbsp; &nbsp; &nbsp; .TextFilePromptOnRefresh = False
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileTrailingMinusNumbers = True
&nbsp; &nbsp; &nbsp; &nbsp; '// .textFileTabDelimiter &nbsp; &nbsp; &nbsp; &nbsp; = false
&nbsp; &nbsp; &nbsp; &nbsp; .TextFileSemicolonDelimiter = True
&nbsp; &nbsp; &nbsp; &nbsp; '//.textFileSpaceDelimiter &nbsp; &nbsp; &nbsp; = false
&nbsp; &nbsp; &nbsp; &nbsp; '// .textFileColumnDataTypes &nbsp; &nbsp; &nbsp;= Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
&nbsp; &nbsp; &nbsp; &nbsp; '//.refreshStyle &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; = xlInsertDeleteCells
&nbsp; &nbsp; &nbsp; &nbsp; '// .adjustColumnWidth &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;= True
&nbsp; &nbsp; &nbsp; &nbsp; '// .refreshPeriod &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;= 0
&nbsp; &nbsp; &nbsp; &nbsp; .Refresh BackgroundQuery:=False
&nbsp; &nbsp; End With
End Sub

Private Function SelectFile() As String
&nbsp; &nbsp; Dim Dlg As Office.FileDialog
&nbsp; &nbsp; Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
&nbsp; &nbsp; Dlg.Filters.Add "CSV file", "*.csv"
&nbsp; &nbsp; Dlg.InitialFileName = ThisWorkbook.path &amp; "\"
&nbsp; &nbsp; Dlg.AllowMultiSelect = False

&nbsp; &nbsp; If (Dlg.Show) Then
&nbsp; &nbsp; &nbsp; &nbsp; SelectFile = Dlg.SelectedItems(1)
&nbsp; &nbsp; End If
End Function
</code></pre>side note: Adjust the ImportCSV function to fit your needs
</div>

als315

<div>
I am getting an error - Run-time error '1004' 
 
Can I ask you to change this slightly? 
Could it just pull in the ur.csv file (from the current folder), and add it to the first blank line in the sheet 'ur data'? 
Not sure if that is easier or harder! Thank you!
</div>

<div>
<blockquote>I am getting an error - Run-time error '1004'</blockquote>Wich line throw the error ?<blockquote>Could it just pull in the ur.csv file (from the current folder), and add it to the first blank line in the sheet 'ur data'?</blockquote>Can you upload your CSV file ? The file structure might differ on my system.
</div>

Euro5

<div>
<a href="https://filedb.experts-exchange.com/incoming/2021/05_w20/1560776/This-is-the-workbook.xlsx" target="_blank" class="file-inline" title="the workbook (10 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>This-is-the-workbook.xlsx</a> 
 
Fabrice, 
I uploaded a workbook and a csv. This would be a good example of what I need to achieve. 
The csv needs to compile at the end of the existing data. The file will always be called ur. 
I would like to have it run the subroutine to complete this. 
I really appreciate your help! 
<a href="https://filedb.experts-exchange.com/incoming/2021/05_w20/1560778/ur.csv" target="_blank" class="file-inline" title="upload this data (1 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ur.csv</a>
</div>

This-is-the-workbook.xlsx

ur.csv

This-is-the-workbook.xlsm

<div>
als315 - thank you!! This is working great to pull in the file! 
2 changes if possible? 
 
It is pulling in the header from the csv - can we not include that? 
Can we not use the picker and just pull in the file ur.csv? 
 
I really appreciate your help!
</div>

<div>
I figured it out! Thank you!
</div>

<div>
<div class="content wysiwyg-content fr-view">
I have a weekly report that will add csv files to the existing workbook. I will likely use a button to run the process. I would like for the code to open the file explorer so the user could choose which csv file to import and then add that file to the first blank row in the the sheet 'ur data'. Can anyone help? Thank you! 
</div>
</div>


I have a weekly report that will add csv files to the existing workbook. I will likely use a button to run the process.
I would like for the code to open the file explorer so the user could choose which csv file to import and then add that file to the first blank row in the the sheet 'ur data'.
Can anyone help? Thank you!

VBA add csv to existing worksheet using file explorer

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.