Sub pasarcelda()
'Selecciona la celda D8 y mete "hola D8"
Range("D8").Select
ActiveCell.FormulaR1C1 = "hola D8"
'Selecciona la D0 y metes una formula que
'va a buscar el valor de D8
Range("D9").Select
ActiveCell.FormulaR1C1 = "=+R[-1]C"
'Seleciona D9 y quita la formula dejando los valores
Range("D9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Selecciona D8 y la borra
Range("D8").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub