と思ったけど
＞エクセルのシートから他アプリへたくさん値コピーしなければならないような時
＞Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
これエクセルvbaじゃなくキーボードマクロですわ

どうしてもやりたいならボタンじゃなくてセルの変更やダブルクリックでコピーでいいだろう

Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)

With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub