Copy multiple columns in multiple workbooks into a seperate worksheet (problem with code)

Bumpity bump

Almost there, I'm getting an error regarding the next i

I get a Next without For error??? Any ideas what that is?

Sub RefreshPivot()

    Dim strFile As String, i As Integer, wb As Workbook
    
        strPath = "R:\Derivatives - Project Rosetta\BAU-GoLive\Redress Team Folder - DO NOT MOVE\Tracker\New CET Redress Team Trackers\"
  
            For i = 1 To 4
'
' RefreshPivot Macro
' Refreshes all 4 team pivots (*2) and the Master MI pivots (*2)
'
' Keyboard Shortcut: Ctrl+Shift+G

    Application.ScreenUpdating = False

        Set wb = Workbooks.Open(Filename:=strPath & "Redress Tracker Team " & i & ".xlsx")
    
        Sheets("Pivot").Select
        ActiveSheet.PivotTables("Team" & i).PivotCache.Refresh
        ActiveSheet.PivotTables("UOW" & i).PivotCache.Refresh
    
        wb.Close SaveChanges:=True  'close Redress Tracker Team workbooks
            
    Next i

    ' Updates Master MI Sheet
    ActiveSheet.PivotTables("MasterTeams").PivotCache.Refresh
    ActiveSheet.PivotTables("MasterUOW").PivotCache.Refresh
    ActiveSheet.PivotTables("Allocation").PivotCache.Refresh
    
        '
    ' Stats Macro
    ' Copies Raw Data from Teamspreadsheets to MI spreadsheet to calculate stats
    '
    
        Set wb = Workbooks.Open(Filename:=strPath & "Redress Tracker Team " & i & ".xlsx")
        
        Sheets("Pivot").Range("F4:F15,H4:J15").Copy
        Workbooks("Redress Tracker MI.xlsm").Sheets("Raw Data").Range("Z3").Offset((i - 1) * 16).PasteSpecial xlPasteValues
        
        wb.Close SaveChanges:=True     'close Redress Tracker Team workbooks
             
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Job Done!"
    
End Sub

Bump, help!

Hi,

You have line 5 this : For i = 1 To 4
In the middle of your code : Next i
And in the end of your code too: Next i !!

You have to put another for i= 1 to 4 in your code or delete one next i depending on what you want to do.

Ohhhh, I thought the original i = 1-4 would work for both.

Cheers