Hỏi về addins - macro excel 2010

[MACRO EXCEL 2010]
Sub TuDongLui()

'
' TuDongLui Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.Offset(1).Select
ActiveCell.Select
ActiveCell.EntireRow.Insert
ActiveCell.FormulaR1C1 = _
"=IF(OR(RIGHT(R[-1]C,2)=""G6"",RIGHT(R[-1]C,2)=""G5"",RIGHT(R[-1]C,2)=""G4"",RIGHT(R[-1]C,2)=""G3"",RIGHT(R[-1]C,2)=""G2""),(REPLACE(R[-1]C,LEN(R[-1]C),1,RIGHT(R[-1]C,1)-1)),IF(RIGHT(R[-1]C,2)=""G1"",LEFT(R[-1]C,LEN(R[-1]C)-1),IF(RIGHT(R[-1]C,1)=""G"",REPLACE(R[-1]C,LEN(R[-1]C),1,""HS-1""),"""")))"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub


Có một macro như trên, làm thế nào để tạo 1 addin để đưa vào máy khác sẽ thực hiện được câu lệnh trong macro trên vậy các bạn - tức là chỉ cần mở file excel lên, tại ô nào đó chỉ cần bấm G6 Ctr+q thì nó sẽ tự động chạy macro trên,

Xin chân thành cảm ơn!