Any idea to make this code work faster ( copy and paste data )

hi,
i am using this code to copy data and paste another sheet
but its working very slowly, please any idea to make this faster code

Please Login or Register  to view this content.

setting the screenupdating to false at the beginning and then reversing it at the end
in the beginning of the code

Please Login or Register  to view this content.

you may also set the calculation to manuall at the beginning and the to automatic in similar fassion if your sheet is full of formulas that are calculated after every operation.
at the end of the code before end sub key word

Please Login or Register  to view this content.

One of the reasons your code is running slowly is that you are copying and pasting several columns separately and repeating the same process many times
Copy/Paste copies only filtered rows - so I have not included specialcells in the code

Instead of copying and pasting in bits
- firstly copy and paste the whole of the data values range to a temporary sheet
- then instead of copying and pasting each column, attribute the values instead

I am guessing that you have filter headers in row 7 and that you are copying all your filtered data range - if not
replace this in the code below

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

and the Resize becomes Resize(lr) instead of Resize(lr - 1)


Create a temporary sheet and name it "Temp" and try replacing everything in your code below line On Error Resume Next (which you should no longer require)

Please Login or Register  to view this content.

And do not forget to include ImranBhatti's suggestions - which avoid the sheet being recalculated and the display refreshed every time a value is changed by VBA

This will not make much difference to speed but by adding a variable, the code can be simplified on the 7 rows where the values are being attributed

create variable to find the next row

Please Login or Register  to view this content.

then

Please Login or Register  to view this content.

is simplified to

Please Login or Register  to view this content.