Hello. I'm trying to put a for loop to increase the i by 1 for each copy and paste. I'm not sure how to do it though. Please help. 


Sub jimbo()
Dim wks As Worksheet
Dim rng As Range, cell As Range

    
For Each wks In ActiveWorkbook.Worksheets
    Select Case wks.Name
        Case "Sheet1", "TOTAL", "FA", "FW"
         
        Case Else
       
        wks.Range("K222:K261").Copy
        With Sheets("Sheet1").Cells(1, i)
        .PasteSpecial xlPasteValues
        End With
    End Select
Next wks
End Sub