Your button-creating code:
Sub AddButtons()
On Error Resume Next
Dim c As Range, myRange As Range
Set myRange = Selection
For Each c In myRange.Cells
ActiveSheet.Buttons.Add(c.Left, c.Top, c.Width, c.Height).Select
With Selection
.Characters.Text = "ADD"
.Name = c.Address ' names with cell address
End With
Next
myRange.Select
End Sub
Handler:
Sub ButtonClicked()
Dim c as Range
Set c = Activesheet.Range(Application.Caller)
c.entirerow.copy sheets("Sheet2").cells(c.row,1)
End Sub