From: Ashish Dabral <[email-masked]>
To: subir <[email-masked]>
Date: Wed, 28 Jun 2017 16:58:01 +0530 (IST)

Sub Collect_Data() 
Dim fso As New FileSystemObject 
Dim fl As File 
Dim fldr As Folder 
Dim pth As String 
Dim i As Integer 
Dim wkb As Workbook 
Dim akb As Workbook 
Set wkb = ThisWorkbook 

Application.DisplayAlerts = False 
Application.FileDialog(msoFileDialogFolderPicker).Show 
pth = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\" 
Set fldr = fso.GetFolder(pth) 
For Each fl In fldr.Files 
i = wkb.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row 
Workbooks.Open Filename:=fl 
Set akb = ActiveWorkbook 
akb.ActiveSheet.Range("A1").CurrentRegion.Copy wkb.Sheets(1).Cells(i, "A") 
akb.Close 
Next fl 
Application.DisplayAlerts = True 
End Sub 

Regards, 
Ashish Dabral