Copy data from different workbook to one workbook-sheet by browsing folder

[Natsha]

I need to create an macro, firstly-where I can pick any folder data,secondly the folders I am gonna pick has only 1 to 5 files not more than that,it varies some time like 1 to 4 but will not exist more than 5, each files sheet 1 name is different and all workbook has only one sheet, i need all the sheet 1 in all workbook should be pasted into macro workbook in sheet 2 under one by one.

Also I dnt need the first row of all the 5 sheet to be pasted,I dnt want the header,I have attached the image of one excel.

Kindly help,I tried so many time but couldn't. I am not that much into macros.

 

[mumps]

Similar to the macro in your other post:

Sub CopySheets()
    Application.ScreenUpdating = False
    Dim wkbDest As Workbook, wkbSource As Workbook, FolderName As String
    Set wkbDest = ThisWorkbook
    With Application.FileDialog(msoFileDialogFolderPicker)
       .AllowMultiSelect = False
       .Show
       FolderName = .SelectedItems(1) & "\"
    End With
    ChDir FolderName
    strExtension = Dir("*.xls*")
    Do While strExtension <> ""
        Set wkbSource = Workbooks.Open(FolderName & strExtension)
        With wkbSource
            .Sheets(1).UsedRange.Offset(1).Copy Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Offset(1)
            .Close False
        End With
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

Duplicate to: Copying data from one workbook to anotherworkbook

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.