Copy data from Sheet1 to ActiveSheet

That won't work because the macro can only copy the data from Sheets("Data") and paste it to Sheets("Sheet2"). I need the macro to paste the data in whichever sheet where the button was clicked. For example, if I click the button on Sheet3, the data should be copied to sheet3 -- not to sheet2.

try this

Sheets("Data").Range("A1:A10").Copy Destination:=ActiveSheet.Range("A1")