Slow running code for copy paste

[zakynthos]

I know there's a way to avoid using the cliopboard by 'select.copy select paste' and for some reason this code is taking a long time to execute. How could I modify it to speed up the process? Many thanks

Application.ScreenUpdating = False
Sheets("Exception List - Permanent").Select
Range("B2:B1000").Select
Selection.Copy

Sheets("Exclusion list").Select
Range("A2").Select

ActiveSheet.Paste

Sheets("Exception List - Permanent").Select
Application.CutCopyMode = False
Range("C2:C1000").Select
Selection.Copy

Sheets("Exclusion list").Select
Range("c2").Select
ActiveSheet.Paste
Application.ScreenUpdating = True

 

[Jonmo1]

I'm guessing it's all the selecting that's slowing it down...

Try

Dim S1 As Worksheet, S2 As Worksheet
 
Set S1 = Sheets("Exception List - Permanent")
Set S2 = Sheets("Exclusion list")
 
Application.ScreenUpdating = False
 
S1.Range("B2:B1000").Copy Destination:=S2.Range("A2")
S1.Range("C2:C1000").Copy Destination:=S2.Range("c2")
 
Application.ScreenUpdating = True

 

[zakynthos]

Thanks very much for this - it has sped up considerably!

Hope you don't mind one last question - I have some more data in another workbook and that also runs slowly with copy and paste - so if the data to be copied was in another workbook called 'Briefing ID Tracking' rather than on another tab in the same worksheet, what could be the code to access this data?

 

[Jonmo1]

Glad to help, thanks for the feedback..

If the other book is already open, then you can just change this
Set S1 = Sheets("Exception List - Permanent")
to
Set S1 = WorkBooks("OtherBookName.xls").Sheets("SheetNameinotherbook")

 

[zakynthos]

Thanks again, you've been a great help!!!