If you still want to copy as originally asked in your question just write a lil macro
E.G.
Sub CopyValue()
Range("G5").Select
Selection.Copy
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub