Using macro as button instead of double click

[sncr137]

Someone kindly gave me the code below to use.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LR As Long
If Not Intersect(Target, Range(Cells(Target.Row, "A"), Cells(Target.Row, "H"))) Is Nothing Then
LR = Sheets("Shopping Cart").Range("B" & Rows.Count).End(xlUp).Row
If LR < 2 Then LR = 2
Intersect(Rows(Target.Row), Columns("a:h")).Copy Destination:=Sheets("Shopping Cart").Range("B" & LR).Offset(1)
End If
End Sub


I would like to use this on a button instead of a double click. Not sure how to begin.

 

[FDibbins]

1. Create a shape
in excel 2007 onwards, find them on the Insert Tab, earlier versions, I think it is under the Insert menu
2. Right-click into the shape and select Assign macro - pick the macro name
3. optional...add text to your "button"

 

[mikerickson]

The current code is copying cells that are in columns a:H of the row that you are double clicking on.

When you activate it by a button, how do you want to tell the routine which row's cells to copy?

 

[FDibbins]

good point Mike

 

[sncr137]

Honestly, I am not sure.

Where ever the active cell is in the list I would like, When I press the button, row (a:h) to be copied to the next available cell in sheet "Shopping cart.

 

[sncr137]

Also, I need the formatting to not be pasted.