Macro VBA to Copy & Paste Cell Item to another Cell Item

@Mangesh

You have just given me an idea.

1. Can you modify the code below since you have hard coded G6 into it.

Sub Cpypst()
    Range("G6").Copy        ' Copy range G6
    Range("B46").Select      ' Change to required destination to paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False         ' Past special coding
End Sub

Cell to be copied is derived from the position of the cursor on Col. G - modify the above code to do this.

2. Modify the code to show Input Dialog box, where I will specify which Cell i want to Paste Special/Text

In short: the code will do 2 things:

1. Copy the cell identified by cursor position on Col G
2. Show Input Dialog Box where user will manually input value, to Paste Special: Text