copy work sheet from another work book into already exits sheet

[Baskar5353]

hi,
i want copy and paste worksheet from "user rasied" workbook to summary workbook. in that(summary) having user system generated sheet already exits with data i want to paste data from "user rasied" workbook to (summary) user system generated copy to below from last row used can u help me

[HaHoBe]

Hi, Baskar5353,

Google should have shown a very long list for that topic. Start trying WBs to 1 Sheet. You may have to slightly alter the code to meet your request.

Ciao,
Holger

[Baskar5353]

Sub mmm()
Dim pasteSheet As Worksheet
Dim strFileToOpen As String
strFileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
Workbooks.Open Filename:=strFileToOpen


Set copySheet = Worksheets("sheet2")
Set pasteSheet = Worksheets("sheet1")
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
i have written the code but it was copying the within the sheet only. i want copy the sheet by opening the workbook and select the sheet

[HaHoBe]

Hi, Baskar5353,

please add code-tags to your code. Same goes to m4444nk: Forum Rule #3

Are both workbooks open, should workbook B (holding data to copy) be closed after the macro, are there formulas in the sheet you want to hold or convert them to values?

Ciao,
Holger

[m4444nk]

Hi,
I am using the following code to combine sheets out of a folder into my master sheet. (Copying always the first sheet)

Sub Merge2MultiSheets()
Dim wbDst As Workbook
Dim wbSrc As Workbook
Dim wsSrc As Worksheet
Dim MyPath As String
Dim strFilename As String
    
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    MyPath = "C:\MyPath" ' change to suit
    Set wbDst = Workbooks("WorkbookToAddSheetsTo.xls")
    strFilename = Dir(MyPath & "\*.xls", vbNormal)
    
    If Len(strFilename) = 0 Then Exit Sub
    
    Do Until strFilename = ""
        
            Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename)
            
            Set wsSrc = wbSrc.Worksheets(1)
            
            wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count)
            
            wbSrc.Close False
        
        strFilename = Dir()
        
    Loop
    wbDst.Worksheets(1).Delete
    
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub