エクセルマクロについて質問です。

以下のようなマクロでクリップボードに文字列を設定します。
シートにボタンを置いて、そのマクロとして記述してもいいでしょう。
Sub test()
Dim wkDO As Object 'New DataObject
Dim msg As String

Set wkDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
msg = "お買い上げ金額は%1円です。" & vbCrLf _
& "%2 ポイント差し上げます。"
msg = Replace(msg, "%1", Sheet1.Range("A1"))
msg = Replace(msg, "%2", Sheet1.Range("B1"))

wkDO.SetText msg
wkDO.PutInClipboard
End Sub