Macro to copy A1 tp J(bottom)

[pcorcele]

I need a macro that will copy an Excel worksheet from A1 to the bottom of col J: then create a new worksheet and paste that data in the new work sheet. Thanks for the help and much appreciated
..

 

[Don Guillett]

I need a macro that will copy an Excel worksheet from A1 to the bottom of col J: then create a new worksheet and paste that data in the new work sheet. Thanks for the help and much appreciated

.

copy this to the sheet module
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> Range("a1").Address Then Exit Sub
Target.Copy Cells(Rows.Count, "j").End(xlUp)(2)
'copy ???? to new worksheet and WHY
End Sub