Hey everyone,

I am trying to copy weekly data from .csv files into a main template which analyzes the data and makes scatter plots. Right now I have been doing it with copy and paste but I am trying to make it so i can run a macro that will open the documents and gather the data and paste the data in a specific location on a specific worksheet in the template. The location that the data is placed in is critical because of the scatter plots. i tried the recorder modified it and I came up with this:
Sub Thirty_C()
Dim wb As Workbook, wb2 As Workbook, wb3 As Workbook

Set wb = Workbooks.Open("C:\Users\oneilp6\Documents\battery life testing\Average_Chart_30C.csv")

    Rows("1:18").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("A123 vs K2(7-9-13).xlsx").Activate
    Range("A6").Select
    ActiveSheet.Paste

Set wb2 = Workbooks.Open("C:\Users\oneilp6\Documents\battery life testing\Average_Chart_40C.csv")

    Rows("1:20").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("A123 vs K2(7-9-13).xlsx").Activate
    Range("A29").Select
    ActiveSheet.Paste
    
Set wb3 = Workbooks.Open("C:\Users\oneilp6\Documents\battery life testing\Average_Chart_50C.csv")

    Rows("1:21").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("A123 vs K2(7-9-13).xlsx").Activate
    Range("A52").Select
    ActiveSheet.Paste
End Sub
It gets stuck at the bolded part. Any ideas??