Sub cpypste()
Dim InputCells As Excel.Range
Dim OutputCells As Excel.Range

    'Show input box to get range of cells that want to copy
    Set InputCells = _
    Application.InputBox(Prompt:="Select Cell / Cells To Copy", _
    Title:="Copy Paste", Type:=8)
    
    'Show input box to get where they want it paste
    Set OutputCells = _
    Application.InputBox(Prompt:="Select cell where you want paste", _
    Title:="Copy Paste", Type:=8)
    
    'Copy range of input cells
    InputCells.Copy
    
    'Paste it into output cells reference
    OutputCells.PasteSpecial (xlPasteAll)

End Sub