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