Easiest thing to do is to copy the range you want, select the area/cell to paste into.
Hold down the alt button and press ESV
then press return
Sub sPaste()
'This code pastes the format and value of the current selection,
'to the active range. The Macro option has been set to Hot-key Ctrl-s but can be assigned to the toolbar.
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
To asign to a custom toolbar button:
Menu; Tools-Customize Commands-Macros-Categories
Commands-Custom Drag button to toolbar
Right-Click the toolbar button, Assign macro
Macro name "Name"
Hope this helps. JSW
This code special pastes the selected values to the selected range.