Option Explicit Sub Macro1() ' Application.DisplayAlerts = False Application.ScreenUpdating = False 'Comments Dim MyFile As String Dim MyCell As CellFormat 'Comments Dim BottomOfC As Range MyPath = InputBox("What folder are the files in?") & "\" MyFile = Dir(MyPath & "*.xls?") Do While MyFile <> "" Workbooks.Open MyPath & MyFile Set BottomOfC = Workbooks("Concession Sales Data.xlsm").Range("C1") _ .End(xlDown).Offset(1, 0) With Workbooks(MyFile).Sheets("Goods Out of Stock Summary") .Range("C14").Copy BottomOfC.Offset(0, -2) .Range("C12").Copy BottomOfC.Offset(0, -1) .Range("A20:L20").End(xlDown).Copy BottomOfC .Close True End With MyFile = Dir Loop Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Macro is done with this folder.", vbOKOnly, "Macro done." End Sub