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