Copy Paste to workbook

[coolkiran]

Hello all

I have 2 workbooks, From my macro file i am trying to open one work book, copy all rows and paste into another workbook.

Current problem is , i have around 100,000 records. Its taking lot of time with current macro. and also screen will freeze. Is there any way to improvize below code.

totalRow = ActiveSheet.Range("A1048576").End(xlUp).Row
wkb.Sheets("Sheet1").Range("A1:BZ1048576").Value2 = ActiveSheet.Range("A1:AZ" & totalRow).Value2

Note : wkb is destination workbook where i am pasting data..

 

[coolkiran]

Any suggestion would be great....

 

[vletm]

coolkiran
... with which macro, it takes a lot of time?
Those two lines won't work alone!
Upload a SAMPLE file...