I need a macro for copying the data of all excel files into one sheet of a excel file.

So the data should be copied one below the other right?

Do you want the filename to be shown, to reflect from which file the data was copied?

Do the source files have only 1 sheet with data or multiple sheets per file?

What is the last column containing data?

In the last question, i meant to ask the column address of the last column having data. Like column M or column X.

I think its better if u think column X is the last one.

Yes that would be gr8 if it splits after consolidation or else i will do it manually as per my requirement if i need a code that to merge or append all the files into on xl sheet .
And it would be gr8 if u have gven me the steps how to add the code into a excel sheet

Thanks

Your data is all in column A. Do you want the data to be split into columns after consolidation?

But how column X? All your data is in column A.

yes All our data will be in column A only

can u help me on this macro

Try this code

Option Explicit

Sub cons_data()

Dim Master As Workbook
Dim sourceBook As Workbook
Dim sourceData As Worksheet
Dim CurrentFileName As String
Dim myPath As String
dim frow as long
dim lrow as long

Application.ScreenUpdating = False

'The folder containing the files to be recap'd
myPath = "D:\Test"

'Finds the name of the first file of type .xls in the current directory
CurrentFileName = Dir(myPath & "\*.xls")

'Create a workbook for the recap report
Set Master = ThisWorkbook
Master.Worksheets(1).Range("A1") = "Data"
Master.Worksheets(1).Range("B1") = "Filename"

Do
    Workbooks.Open (myPath & "\" & CurrentFileName)
    Set sourceBook = Workbooks(CurrentFileName)
    Set sourceData = sourceBook.Worksheets(1)
    
        With sourceData
            .Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy _
                    Master.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            frow = Master.Worksheets(1).Range("B" & Rows.Count).End(xlUp).Row
            lrow = Master.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
            Master.Worksheets(1).Range("B" & frow + 1 & ":B" & lrow).Value = Left(CurrentFileName, Len(CurrentFileName) - 4)
        End With
       
    sourceBook.Close
  
'Calling DIR w/o argument finds the next .xlsx file within the current directory.
CurrentFileName = Dir()
Loop While CurrentFileName <> ""

Master.Worksheets(1).Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button

What error are you getting?

Yes, all files should be placed in one folder. Change the path i have marked bold in the code above.

Sorry about that. I have edited the code in post 10 to reflect the changes.

Please try it now and let me know.

U dont need to open the source files. The macro will open, copy and close each file. Only open the file containing the macro and run it. Ensure that the macro file is not in the same folder as the other files.