optimize the Code needs to run faster

HI All,

Iam using the below for pasting the sheet 2 data to sheet 1 starting range B7. I have write i think so 200 lines like the below code getting data from different sheets to sheet 1 ranges. How can i optimize this code this macro go for each range to 5000 then paste to B7 range sheet 1 it takes lot of time to execute?

arr = Sheets(2).Range("B2:B5000" & Sheets(2).UsedRange.Rows.Count).Value
Sheets(1).Range("B7").Resize(UBound(arr)) = arr

Thanks
Farrukh

Hi farrukh,

Here is my favorite site about optimization topic.
http://www.cpearson.com/excel/optimize.htm

I hope this helps.

Probably you better copy sheet 2 and delete in the copy what isn't necessary.