Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""

        Workbooks.Open sFolder & sFiles
 '       ActiveWorkbook.Close True
     Range("A2:J10").Select
    Selection.Copy
    Windows("Bonus.xlsm").Activate
            ActiveSheet.Paste Cells(Rows.Count, 1).End(xlUp).Offset(3)
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub