rewrite code

  • Thread starter Thread starter terilad
  • Start date Start date
T

terilad

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
 
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.
 
Many thanks

Mark

ozgrid.com said:
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.
Click to expand...
 
Back
Top