Import Data from CSV file to Existing Worksheet

[Stvy]

Hello everyone.

I am trying to create a macro that would import data from a CSV file to a specific worksheet at a specific cell. I found a previous post with a code that successfully imports my CSV file; however, it defaults to importing the data to the first worksheet within the workbook.

For my specific workbook, I have a worksheet named "Market Trends" and would like the data to insert into cell Y15 in the "Market Trends" worksheet. Below is the code I found. I'm hoping someone can help me tweak the code specific to what I'm looking for.

Sub CSV_Import()
   Dim dateien As Variant
   Dim i As Long
   
   dateien = Application.GetOpenFilename _
      ("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
   If IsArray(dateien) Then
      For i = 1 To UBound(dateien)
         Workbooks.Open dateien(i), local:=True
         With ThisWorkbook.Sheets(1)
            ActiveSheet.UsedRange.Copy Destination:=.Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
         End With
         ActiveWorkbook.Close False
      Next i
   End If
End Sub

Thank you in advance.

 

[GlennJ]

Sub CSV_Import()
   Dim dateien As Variant
   Dim i As Long
  
   dateien = Application.GetOpenFilename _
      ("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
   If IsArray(dateien) Then
      For i = 1 To UBound(dateien)
         Workbooks.Open dateien(i), local:=True
        
        
        
         ' Change the (3)below to how many sheets to right you need to go to get to your "Market Trends" sheet
         With ThisWorkbook.Sheets(3)
        
        
        
         ' the 15 below changes how many rows down you want to go and the 24 is how many columns to the right you want to go, to get
         ' to the the cell you want your data to start in
            ActiveSheet.UsedRange.Copy Destination:=.Cells(15, .Columns.Count).End(xlToLeft).Offset(, 24)
         End With
        
        
        
        
        
        
         ActiveWorkbook.Close False
      Next i
   End If
End Sub