Copying VBA module to another sheet

[chris1089]

The codes below I assigned to two buttons in a particular sheet. I would like to copy this code and used it in another similar sheet which also has two buttons. The other sheet interacts with different sheets. Can you help with this please?


Sub Bevel1_Click()
'
' Bevel1_Click Macro
'

'
Range("B9:M28").Select
Selection.Copy
Sheets(Range("P1").Value).Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("sheet 1 input").Select

End Sub
Sub Bevel3_Click()

Sheets(Range("P1").Value).Select
Range("B3:M26").Select
Selection.Copy
Sheets("sheet 1 input").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

[chris1089]

Solved .....