Greetings!

I have used the paste special technique before to add a value to a range of
selected values. What I would like to do now, is that same technique but
instead of choosing a cell value in the worksheet I would like to use an
input box for that value. What I can't figure out is how to copy that input
box value to be used in the paste special commands.

Below is what the code looks like if I type a value in a cell, select and
copy it, and then select my new range of cells to use the paste special
command to add that value to the existing numeric values.

'This is the number I am copying
Range("E2").Select
Selection.Copy
'Now I select the range of cells I want to add it too
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
'The paste special command to add that value to the existing numeric values
in the cells
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _
, Transpose:=False


Any ideas on how to do this by using an input box?

Many thanks!

Jessica