Copy Paste between sheets

Hi,

I want to copy a range from Sheet2 to Sheet1.

This works fine with code below:

'

 Keyboard Shortcut: Ctrl+j
'
    Sheets("Sheet2").Select
    Range("A7:D37").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Application.Run "BLPLinkReset"
    Range("A12").Select
    ActiveSheet.Paste
End Sub

Problem happens when I put this code into a Command Button and I get following message:

Run-time error
Select method of Range class failed

Any idea why?
How can I do copy paste function using Command Button?

Thanks,
Nix