excel - 貼り付け値はマクロでハードコーディングされています

Question

まず、2 つのセルを連結してハイパーリンクを作成します。1 つのセルにはチケット管理システムの Web アドレスがあり、もう 1 つのセルにはチケット番号があります。ダブルクリックされたピボットテーブルのドリルダウンシートに2つのセルが存在し、そのソースデータにはすでにハイパーリンクがありますが、ドリルダウンシートに引っ張られず、複数のフォーラムで読んだことがあります。突き抜けるようにします。

そのため、連結のマクロを記録し、連結の値を別のセルに貼り付けてキャリッジ リターンを実行し、それをハイパーリンクにしました。ブーム！仕事終わり？

いいえ、記録されたマクロを他のデータでテストしたところ、連結はすべて正しく行われましたが、値の貼り付けビットに到達すると、作業していた前のデータの値が貼り付けられましたか?

マクロの記録中にハードコードされたものではなく、選択したセルの値をコピーして貼り付ける方法は VBA にありますか?

これが明らかに出血している場合は申し訳ありませんが、私はVBAの専門家ではありません...それからはほど遠いです。

Sub CreateHyperlink()
'
' CreateHyperlink Macro
'

'
Columns("A:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],5)"
Range("A3").Select
ActiveCell.FormulaR1C1 = _
    "=CONCATENATE(""=HYPERLINK(""""http://test.analytics.com/workspace/379/item/"",RC4,"""""""","","","" "","""""""",RC5,"""""""","")"")"
Range("A4").Select
Columns("A:A").EntireColumn.AutoFit
Range("B3").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],LEN(RC[-1])-0)"
Range("B3").Select
Columns("B:B").EntireColumn.AutoFit
Range("B3").Select
Selection.Copy
Range("C3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
Selection.Copy
Range("C3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
    "=HYPERLINK(""http://test.analytics.com/workspace/379/item/55949"", ""INQ-55949"")"
Range("C4").Select
Columns("C:C").EntireColumn.AutoFit
End Sub

ありがとうJ