Looping through a Copy & Paste

Does this help?

Sub JPSIMMON()
Dim wbk As Workbook, Source As String, StrFile As String
Source = "K:\DRIVE\FOLDERPATH\FOLDER\"
StrFile = Dir(Source)
   Do While Len(StrFile) > 0
        Workbooks.Open filename:=Source & StrFile
        StrFile = Dir()
    Loop
For Each wbk In Workbooks
    If wbk.Name <> Thisworkbook.Name And wbk.Name <> "PERSONAL.xlsm" Then
        Thisworkbook.Sheets("Sheet1").Columns("J:K").Copy
        wbk.Sheets("Atts").Range("A1").PasteSpecial xlPasteValues
    End If
    wbk.Save
    wbk.Close
Next wbk
End Sub

I'm not sure about what you're trying to achieve. This will open all workbooks in a folder. Copy Columns("J:K") to Sheet("Atts") - Each workbook in the folder needs to have this sheet. Save and Close each workbook with the changes. Anyway it might give you some ideas. Note: All other workbooks need to be closed except for those associated with the macro.