Thread: User Select Destination Cell

Hi, I have some simple code to copy a range from one worksheet to another:

Sub copymacro2()
Dim ws1 As Worksheet
Set ws1 = Sheets("Front Page")

    ws1.Range("B4:F42").Select
    Selection.Copy
    Sheets("ROI").Select
    ActiveSheet.Select
    Range("AF27").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    
    Columns("AF:AF").EntireColumn.AutoFit
    Columns("AG:AG").EntireColumn.AutoFit
    
    ActiveSheet.Select
    Range("AI27:AJ30").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub

I want to change the code so that instead of pasting to "AF27" the user can select the destination cell each time the macro is run.
How can this be achieved?

Thanks for your help.

Sub copymacro2()
    Dim ws1 As Worksheet
    Dim Slct As Variant
    Set ws1 = Sheets("Front Page")
    
    Set Slct = Application.InputBox(Prompt:="Please select a destination", Title:="Select Destination", Type:=8)
    
    ws1.Range("B4:F42").Copy
    Slct.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Slct.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    
    Slct.Columns(1).EntireColumn.AutoFit
    Slct.Columns(2).EntireColumn.AutoFit
    
    Application.CutCopyMode = False
    Range(Slct.Columns(4).Rows(1).Address & ":" & Slct.Columns(5).Rows(4).Address).Delete Shift:=xlToLeft
End Sub