No, I did not forget - the .Copy _ Shtd..... is what does that. This will disable macros...

Sub test()
    Dim strPath As String
    Dim shtS As Worksheet
    Dim shtD As Worksheet
    Dim wkbk As Workbook
    Dim strFName As String

    strPath = "C:\Users\richardson.js\Desktop\FCR DIRECTORY\SUBMITTED\"
    Set shtD = ThisWorkbook.Sheets("FCR Summary")

    Application.EnableEvents = False
    strFName = Dir(strPath & "*.xls*")
    While strFName <> ""
        If strFName <> ThisWorkbook.Name Then
            Set wkbk = Workbooks.Open(strPath & strFName)
            Set shtS = wkbk.Sheets("SKU Information")
            Intersect(shtS.Cells(shtS.Rows.Count, "X").End(xlUp).EntireRow, shtS.Range("B:AG")).Copy _
                    shtD.Cells(shtD.Rows.Count, "B").End(xlUp)(2)
            wkbk.SaveCopyAs "C:\Users\richardson.js\Desktop\FCR DIRECTORY\ARCHIVE\" & wkbk.Name
            wkbk.Close False
            Kill strPath & strFName
        End If
        strFName = Dir()
    Wend

    Application.EnableEvents = True

End Sub