Macro to move data from one sheet to another
 

Hello,

Can someone help me in creating a macro that will copy data from sheet 1 and
paste the range selected to a new worksheet? the script below works for a
single worksheet only. Please Help!

Public Sub CopyOne()
Worksheets("Sheet1").Activate
'Range("E1:E7").Copy Range("F2:F7")


End Sub

Thanks,