title: Merge multiple csv files in one excel sheet
body: <p>After searching a lot on the internet i tried to combine a working Excel VBA code that reads all .csv files in a folder into an excel file (each on a seperate worksheet).
  But the only thing i need is to combine all the csv files in 1 worksheet....</p>
  
  <p>The working code is:</p>
  
  <hr>
  
  <h2>working file into seperate worksheets</h2>
  
  <pre><code>Sub Example12()
  Dim MyPath As String
  Dim FilesInPath As String
  Dim MyFiles() As String
  Dim SourceRcount As Long
  Dim Fnum As Long
  Dim mybook As Workbook
  Dim basebook As Workbook
  
  'Fill in the path\folder where the files are
  'on your machine
  MyPath = "c:\Data"
  
  'Add a slash at the end if the user forget it
  If Right(MyPath, 1) &lt;&gt; "\" Then
  MyPath = MyPath &amp; "\"
  End If
  
  'If there are no Excel files in the folder exit the sub
  FilesInPath = Dir(MyPath &amp; "*.csv")
  If FilesInPath = "" Then
  MsgBox "No files found"
  Exit Sub
  End If
  
  On Error GoTo CleanUp
  
  Application.ScreenUpdating = False
  Set basebook = ThisWorkbook
  
  'Fill the array(myFiles)with the list of Excel files in the folder
  Fnum = 0
  Do While FilesInPath &lt;&gt; ""
  Fnum = Fnum + 1
  ReDim Preserve MyFiles(1 To Fnum)
  MyFiles(Fnum) = FilesInPath
  FilesInPath = Dir()
  Loop
  
  'Loop through all files in the array(myFiles)
  If Fnum &gt; 0 Then
  For Fnum = LBound(MyFiles) To UBound(MyFiles)
  Set mybook = Workbooks.Open(MyPath &amp; MyFiles(Fnum))
  mybook.Worksheets(1).Copy after:= _
  basebook.Sheets(basebook.Sheets.Count)
  
  On Error Resume Next
  ActiveSheet.Name = mybook.Name
  On Error GoTo 0
  
  ' You can use this if you want to copy only the values
  ' With ActiveSheet.UsedRange
  ' .Value = .Value
  ' End With
  
  mybook.Close savechanges:=False
  Next Fnum
  End If
  CleanUp:
  Application.ScreenUpdating = True
  End Sub
  ---------------------------------------------------------
  
  But the change i've made was to change the part where the VBA copies it into a sheet "after" the last one, to append it to a existing sheet "Totaal".
  </code></pre>
  
  <hr>
  
  <pre><code>not working code
  ---------------------------------------------------------
  
  Sub Example12()
  Dim MyPath As String
  Dim FilesInPath As String
  Dim MyFiles() As String
  Dim SourceRcount As Long
  Dim Fnum As Long
  Dim mybook As Workbook
  Dim basebook As Workbook
  
  'Fill in the path\folder where the files are
  'on your machine
  MyPath = "c:\Data"
  
  'Add a slash at the end if the user forget it
  If Right(MyPath, 1) &lt;&gt; "\" Then
  MyPath = MyPath &amp; "\"
  End If
  
  'If there are no Excel files in the folder exit the sub
  FilesInPath = Dir(MyPath &amp; "*.csv")
  If FilesInPath = "" Then
  MsgBox "No files found"
  Exit Sub
  End If
  
  On Error GoTo CleanUp
  
  Application.ScreenUpdating = False
  Set basebook = ThisWorkbook
  
  'Fill the array(myFiles)with the list of Excel files in the folder
  Fnum = 0
  Do While FilesInPath &lt;&gt; ""
  Fnum = Fnum + 1
  ReDim Preserve MyFiles(1 To Fnum)
  MyFiles(Fnum) = FilesInPath
  FilesInPath = Dir()
  Loop
  
  'Loop through all files in the array(myFiles)
  If Fnum &gt; 0 Then
  For Fnum = LBound(MyFiles) To UBound(MyFiles)
  Set mybook = Workbooks.Open(MyPath &amp; MyFiles(Fnum))
  mybook.Worksheets(1).Copy
  
  **basebook.Sheets("Totaal").Select
  NextRow = Cells(Rows.Count, 0).End(xlUp).Row
  Cells(NextRow, 1).Select
  ActiveSheet.Paste**
  
  On Error Resume Next
  ActiveSheet.Name = mybook.Name
  On Error GoTo 0
  
  ' You can use this if you want to copy only the values
  ' With ActiveSheet.UsedRange.Value = .Value
  ' End With
  
  mybook.Close savechanges:=False
  Next Fnum
  End If
  CleanUp:
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <hr>
  
  <p>I haven't got the knowledge to change this :(. 
  Was I on the right track? </p>
  
  <p>All input will be greatly appreciated!</p>
  
  <p>EXTRA INFO: The data in the CSV files are put in the first column. After the whole merging process i planned to do the split into columns afterwards....</p>
  
  <p>Thanks!</p>