Copy Data_But don't clear data already on sheet

[josros]

Hi,

I have the code below which works fine, But how can it be modified that it doesn't clear the data or names already in the template sheet.

here is the code:

Option Explicit

Sub CopyOutput()
Dim wb1 As Workbook, wb2 As Workbook
Dim Ret1, Ret2

Set wb1 = ActiveWorkbook

'~~> Get the File
Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _
, "Please select file")
If Ret1 = False Then Exit Sub

Set wb2 = Workbooks.Open(Ret1)
wb2.Sheets(1).Cells.Copy wb1.Sheets(1).Cells
wb2.Close SaveChanges:=False


Set wb2 = Nothing
Set wb1 = Nothing
End Sub


Thank you,

[TMS]

In the absence of any sample files or knowledge of the structure of the data, best guess:

Please Login or Register  to view this content.

[josros]

Hi,

your suggestion works in a way that doesn't erase anything which is good but won't start copying from "A1" cell, attaching file always should past from cell "A1".

Same format all the time so should always copy data starting from Cel "A1"




Thank you,

[josros]

Hi,

I think I figure it out,

I changed this line from:

Please Login or Register  to view this content.

To this line:

Please Login or Register  to view this content.

After modifying it like that now Starting from cell "A1" and doesn't erased anything already in the template.
If it is a better way to do it, please let me know.
attaching a revised one.

Thank you

[TMS]

Pretty sure that's what the code is doing. It copies the used range from the source sheet after the used range of the target sheet (the active sheet with the button) in the target workbook (ThisWorkbook: the book running the code)

[josros]

But target sheet from A1 is empty but code before I changed it was pasting it on row starting A125 down not from A1.

Thank you