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

Originally Posted by mangesh.mehendale

Hiii..

code is modified to Select both cell i.e. cell to be copy from Col. G with and destination cell to paste special with input box

Sub Cpypst()
    Dim rng As Range
    Dim dest As Range
    Set rng = Application.InputBox("Select Cell in Col G", Type:=8)
    Set dest = Application.InputBox("Destination Cell to Paste", Type:=8)
    rng.Copy        ' Copy range cell in Col G
    dest.Select      ' required destination cell to paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False         ' Paste special coding
    Application.CutCopyMode = False
End Sub

Is this okay...

Yep - Thanks !! Working Fine.