InputBox to Select Cell for Paste Special

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

I tried to simplify the code to make it easier for the post! I am using the following code for the copy from one worksheet:

TryAgain:
    On Error GoTo Canceled
    Set r = Application.InputBox(Prompt:="Select the cells in column A", Type:=8)
    On Error GoTo 0
    s = ""
    For Each a In r.Areas
        If a.Columns.Count <> 1 Or a.Column <> 1 Then
            MsgBox "You didn't select cells just in column A", vbOKOnly + vbExclamation, "Incorrect Selection"
            GoTo TryAgain
        End If
        s = s & a.Resize(, 15).Address & ","
    Next a
    Range(Left(s, Len(s) - 1)).Copy
Canceled:

I am then going to another worksheet for the paste.
I am unsure how to work the above into your code?

Thanks I will give that a go tomorrow.

Alpine skiing combined ...
You can also do this that way:

Sub macro_macro()
Dim rng As String
Dim rng_pst As String
Dim Ret As Range

    Sheet1.Select
    
TryAgain:
    On Error GoTo Canceled
    Set Ret = Application.InputBox(Prompt:="Select the cells in column A", Type:=8) '$A$2
    
    On Error GoTo 0
    s = ""
    For Each a In Ret.Areas
        'a = $A$2
        
        If a.Columns.Count <> 1 Or a.Column <> 1 Then
            MsgBox "You didn't select cells just in column A", vbOKOnly + vbExclamation, "Incorrect Selection"
            GoTo TryAgain
        End If
        s = s & a.Resize(, 15).Address & "," 's = $A$2:$O$2,
    Next a
    
    rng = ActiveSheet.Range(Left(s, Len(s) - 1)).Address '$A$2:$O$2 - Left(s, Len(s) - 1) = $A$2:$O$2
    'target = copy to sheet 2
    Set Ret = Application.InputBox(Prompt:="Please select a range where you want to paste", Type:=8) 'Sheet2!$A$12
    rng_pst = Ret.Parent.Name 'rng_pst = Sheet2
    Sheet1.Range(rng).Copy Destination:=Ret 'But without using ".PasteSpecial"
    Sheets(rng_pst).Select
    
Canceled:
End Sub