Paste Values and Number Formatting

[MrDB4Excel]

I have searched and cannot seem to find anything that helps me to do this Paste Values and Number Formatting as an add-in xlam file.

What I want to do is instead of using Excel’s Quick Access toolbar for Paste Values and Number Formatting I would like to create an add-in xlam file containing vba that first allows as user input a selection of any range of data per the user’s choice and then second allows the user to select a location to paste these non-formatted values. Is this possible or am I dreaming?

 

[MrDB4Excel]

Did I post this about Paste Values and Number Formatting in the wrong location?
Or perhaps I am asking the wrong questions.
In addition to this original post, I would like to add that Excel's Quick Access Toolbar does not allow the user to change the icon on some Toolbar actions, Paste Values and Number Formatting being one of them. This is why I want to develop a macro in an add-in that accomplishes what Excel's Paste Values and Number Formatting does to Paste Values without any formatting.
It's a real pain to regularly look for the tiny, and I do mean tiny, icon in the Quick Access Toolbar. My major problem isn't developing the xlam file or gaining access to the add-in but is writing the vba to start with.
Any help will be very much appreciated, and who knows, others may find this helpful as well.

 

[MrDB4Excel]

I am not sure answering my own post is kosher but my thinking is if I supply what may be somewhat of an answer perhaps someone else will kick in and provide a solution.
The following code I am trying but it hangs up and does not allow me to follow through with selecting a place to paste.
It does allow me to make a selection, which really isn't the most important part because I use another method to make the selection as seen here:

All-In-One.xlsm
	H	I	J	K
2	2: Paste in DailyInitialData		34	1: Get A2-F2
Current Rates

Cell Formulas
Range	Formula
H2	H2	=HYPERLINK("#DailyInitialData!a"&(COUNTA(AW:AW)+J2),"2: Paste in DailyInitialData")
J2	J2	=DailyInitialData!L1

My vba macro attempt is shown here below, but again, all I really want is after I have made my selection per the what is shown in my xlsBB MiniSheet above is to do the:
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation: by selecting either an image with macro attached or via an add-in that is run via selecting an icon in the Quick Access toolbar or by selecting an image with macro attached.





Sub PasteNoFormat()
'
' PasteNoFormat Macro
'
'
Dim rRange As Range
On Error Resume Next
Application.DisplayAlerts = False
Set rRange = Application.InputBox(Prompt:= _
"Please select a range with your Mouse to copy.", _
Title:="SPECIFY RANGE", Type:=8)
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub