rewrite code

[terilad]

Hi,

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

Sub MyCopy()
Range("O716").Copy
Range("A7:B7").Select
ActiveSheet.Paste
Range("Q7:R16").Copy
Range("F7:G7").Select
ActiveSheet.Paste
Range("O1827").Copy
Range("A24:B24").Select
ActiveSheet.Paste
Range("Q18:R27").Copy
Range("F24:G24").Select
ActiveSheet.Paste
Range("O2938").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

 

[ozgrid.com]

Sub MyCopy()
Range("O716").Copy Range("A7")
Range("Q7:R16").Copy Range("F7")
Range("O1827").Copy Range("A24")
'etc
End Sub

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

 

[terilad]

Many thanks

Mark

Sub MyCopy()
Range("O716").Copy Range("A7")
Range("Q7:R16").Copy Range("F7")
Range("O1827").Copy Range("A24")
'etc
End Sub

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