Improvig code copying data from one sheet to another

[howard]

I have the following macro below to copy data from a named range "Summary overaged" and paste in M1 onwards on sheet "overaged"

 Sub Copy_overaged()
Sheets("overaged").Select
Range("Summary_overaged").Copy
Sheets("overaged").Select
Range("M1").PasteSpecial xlPasteFormats
Range("M1").PasteSpecial xlPasteValues

End Sub

Your assistance is most appreciated

 

[mumps]

Try:

Sub Copy_overaged()
    Range("Summary_overaged").Copy
    With Sheets("overaged")
        .Range("M1").PasteSpecial xlPasteFormats
        .Range("M1").PasteSpecial xlPasteValues
    End With
End Sub

 

[howard]

Thanks for the help

 

[mumps]

You are very welcome.