how to copy and paste big range to another sheet without selecting

[daveyc18]

currently,

sheets("big").select

range("a1:ad" & cells(rows.count,"A").end(xlup).row).copy

sheets("copy").select

range("A1").pastespecial xlpastevalues

 

[My Aswer Is This]

Try this:

Sub RectangleRoundedCorners1_Click()
Sheets("big").Range("a1:ad" & Cells(Rows.Count, "A").End(xlUp).Row).Copy

Sheets("copy").Range("A1").PasteSpecial xlPasteValues
End Sub