Use this script to copy data from one sheet to another :
Code:
Set objExcel = CreateObject("Copy File.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("c:\Scripts\Test.xls")
Set objWorksheet = objWorkbook.Worksheets("sheet number 1")
Set objRange = objWorksheet.Range("A1:A20")
objRange.Copy
Set objExcel2 = CreateObject("Copy File.Application")
objExcel2.Visible = True
Set objWorkbook2 = objExcel2.Workbooks.Add
Set objWorksheet2 = objWorkbook2.Worksheets("sheet number 1")
objWorksheet2.Paste
Bookmarks