rewrite code
 

Hi,

I sthere a way I can tidy this part of my code up to run more better.

Sub MyCopy()
Range("O7:P16").Copy
Range("A7:B7").Select
ActiveSheet.Paste
Range("Q7:R16").Copy
Range("F7:G7").Select
ActiveSheet.Paste
Range("O18:P27").Copy
Range("A24:B24").Select
ActiveSheet.Paste
Range("Q18:R27").Copy
Range("F24:G24").Select
ActiveSheet.Paste
Range("O29:P38").Copy
Range("A41:B41").Select
ActiveSheet.Paste
Range("Q29:R38").Copy
Range("F41:G41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Many thanks


Mark

rewrite code
 

Sub MyCopy()
Range("O7:P16").Copy Range("A7")
Range("Q7:R16").Copy Range("F7")
Range("O18:P27").Copy Range("A24")
'etc
End Sub

No need to clear the clipboard as the Copy Method bypasses it.


--
Regards
Dave Hawley
www.ozgrid.com
"terilad" wrote in message
...
Hi,

I sthere a way I can tidy this part of my code up to run more better.

Sub MyCopy()
Range("O7:P16").Copy
Range("A7:B7").Select
ActiveSheet.Paste
Range("Q7:R16").Copy
Range("F7:G7").Select
ActiveSheet.Paste
Range("O18:P27").Copy
Range("A24:B24").Select
ActiveSheet.Paste
Range("Q18:R27").Copy
Range("F24:G24").Select
ActiveSheet.Paste
Range("O29:P38").Copy
Range("A41:B41").Select
ActiveSheet.Paste
Range("Q29:R38").Copy
Range("F41:G41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Many thanks


Mark

rewrite code
 

Many thanks

Mark

"ozgrid.com" wrote:

Sub MyCopy()
Range("O7:P16").Copy Range("A7")
Range("Q7:R16").Copy Range("F7")
Range("O18:P27").Copy Range("A24")
'etc
End Sub

No need to clear the clipboard as the Copy Method bypasses it.


--
Regards
Dave Hawley
www.ozgrid.com
"terilad" wrote in message
...
Hi,

I sthere a way I can tidy this part of my code up to run more better.

Sub MyCopy()
Range("O7:P16").Copy
Range("A7:B7").Select
ActiveSheet.Paste
Range("Q7:R16").Copy
Range("F7:G7").Select
ActiveSheet.Paste
Range("O18:P27").Copy
Range("A24:B24").Select
ActiveSheet.Paste
Range("Q18:R27").Copy
Range("F24:G24").Select
ActiveSheet.Paste
Range("O29:P38").Copy
Range("A41:B41").Select
ActiveSheet.Paste
Range("Q29:R38").Copy
Range("F41:G41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Many thanks


Mark