I have copied data from a selection of cells and then using one of the two sets of code to paste special the data.

The code below allows me to select the cell to paste special but the pasting comes up with an error:
Dim Ret As Range
    Set Ret = Application.InputBox(Prompt:="Please select a range where you want to paste", Type:=8)
    Ret.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                     SkipBlanks:=False, Transpose:=False
With the code below (where 1Rng is the last pre-selected cell in a column – the default paste cell) the paste works but I can’t select another cell.
Dim strName As String
    strName = InputBox(prompt:="Type in column A cell to paste component into", _
                       Title:="Price List Paste", Default:=lRng)    ', Type:=8))
    Range(strName).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
How can I modify the code to allow for cell selection and get the paste special to work?
Thanks Sandy