Need help making this Copy and paste code run smoother please.

[ausrollo]

Hello All,

I have a spreadhseet which we work off to make quotes and i need to make this copy and paste code run a bit smoother, The sheets runs very laggy after I run the code. Any help would be greatful.

I have added a couple of screenshots of the two sheets to help understand a little better.


Sub write_12x12()
'
'
Dim cell As Range

Application.ScreenUpdating = False

Sheets("PS Data Sheet").Visible = True

Sheets("PS Data Sheet").Select
Range("B4:C4").Select
Selection.Copy

Sheets("Quote Sheet").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("PS Data Sheet").Select
Range("B5:B9").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Quote Sheet").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Select

Sheets("PS Data Sheet").Select
Range("E5:E9").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Quote Sheet").Select
ActiveSheet.Paste
ActiveCell.Offset(8, -3).Select
Application.CutCopyMode = False

Sheets("PS Data Sheet").Visible = False

Application.ScreenUpdating = True

End Sub

 

[Zot]

There is no need to select, activate worksheet etc in most cases

Range("A1").Copy Range("C1")
Range("A1:A3").Copy Range("D1:D3")
Range("A1:A3").Copy Range("D1"

to different worksheet
Sheets("PS Data Sheet").Range("A1").Copy Sheets("Quote Sheet").Range("C1")
Sheets("PS Data Sheet").Range("A1:A3").Copy Sheets("Quote Sheet").Range("D1:D3")
Sheets("PS Data Sheet").Range("A1:A3").Copy Sheets("Quote Sheet").Range("D1"

This will copy everything like formatting etc.

You can write a straight formula if you need just value without even copy which is faster.
Sheets("Quote Sheet").Range("C1") = Sheets("PS Data Sheet").Range("A1")