Need a Pop-up Numeric Key Pad in a worksheet

Hi:
I have a workbook that I would like a numeric keypad to pop-up so that the user can input data from the keypad instead of the keyboard. I found a macro that was posted in this forum in 2007 (I know 10 Years ago-yikes! but I thought I would try it anyway. Needless to say, I cannot get it to work. I am not sure if it is due to the numerous excel versions since 2007 or if I am doing something wrong. Here is the macro. I would appreciate any help that I can get on this. Thank you!!!!

Sub one_1()
ActiveCell.Value = ActiveCell.Value & "1" + 0

End Sub
Sub two_2()
ActiveCell.Value = ActiveCell.Value & "2" + 0

End Sub

Sub three_3()
ActiveCell.Value = ActiveCell.Value & "3" + 0

End Sub
Sub four_4()
ActiveCell.Value = ActiveCell.Value & "4" + 0

End Sub
Sub five_5()
ActiveCell.Value = ActiveCell.Value & "5" + 0

End Sub
Sub six_6()
ActiveCell.Value = ActiveCell.Value & "6" + 0

End Sub
Sub seven_7()
ActiveCell.Value = ActiveCell.Value & "7" + 0
End Sub
Sub eight_8()
ActiveCell.Value = ActiveCell.Value & "8" + 0

End Sub
Sub nine_9()
ActiveCell.Value = ActiveCell.Value & "9" + 0

End Sub
Sub zero_0()
ActiveCell.Value = ActiveCell.Value & "0" + 0

End Sub