Copy Data from One worksheet to Another without Overwrite

Hi All,

I m trying to find a way to get a VBA code for Copying the data from one excel sheet to another without overwriting the existing data. I did try with many different sample codes available but for some reason most of them are just copying a specified cells and rows. What I m trying to find is from column A to J I would have 3000 to 4000 odd data every week and I have placed a macro to update the sheet with the weekly data. but then I need to copy that data lets say from Sheet 1 to Sheet 2 which already has previous years data. I want the macro to copy the data from sheet 1 to sheet 2 on the next available bank cell from A to J column. Can you please help me out in this. Thanks in advance.

Cheers
Vinu

That was too cool. Thanks Mate its worked well and I m done with my Report with all marcos ....

Please find my final code I used. Even though I have selected the A2 as the primary cell for copying the data to another sheet without overwrite. But the data gets copied from A1 cell " Sheets("dest").Range("A2").CurrentRegion.Resize(, 10).Copy
Sheets("YTD Details").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False"

is there anyway to change the Cell range from A1 to A2?

Final Code -

Sub Consolidate()
Dim sourceSheet As Worksheet
Dim destSheet As Worksheet

'' copy from the source
Workbooks.Open Filename:="E:\Vinodh\Working\Bag Report\Source.XLS"
Set sourceSheet = Worksheets("source")
sourceSheet.Activate
sourceSheet.Cells.Select
Selection.Copy

'' paste to the destination
Workbooks.Open Filename:="E:\Vinodh\Working\Excel Automation\destination.xls"
Set destSheet = Worksheets("dest")
destSheet.Activate
destSheet.Cells.Select
destSheet.Paste

'' save & close
ActiveWorkbook.Save

Sheets("dest").Range("A2").CurrentRegion.Resize(, 10).Copy
Sheets("YTD Details").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

Sheets("YTD Summary").Select
Range("A23").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Weekly Summary").Select
Range("E16").Select
ActiveWindow.SmallScroll Down:=-21
Sheets("dest").Select
Range("L672").Select
ActiveWorkbook.Save


End Sub