excel vba 单元格赋值问题。 在excel中，激活某个单元格，则此单元格中的值赋予某特定单元格。

Question

另请高手看一下下面的代码：
private sub opp_click()
dim x as single, y as single,z as string
if opp.value =true then
x=application inputbox("输入起始行数")
for x=x to 10000 step 1
z=activecell.value
range(d,x).formulaR1C1=Z
NEXT
END IF
END SUB
这是我自己写的一段代码。总是出错误！
我想用鼠标点击单元格，程序自动将其中的值添加到某单元格（比如D2），然后下一个D3，一直循环下去。知道停止激活！

Answer 1

ActiveCell.Offset(, 2) = "你好"

左边一列
ActiveCell.Offset(, -1) = "你好"

下面一行
ActiveCell.Offset(1) = "你好"

上面两行
ActiveCell.Offset(-2) = "你好"

Answer 2

range(d,x).formulaR1C1=Z
这句话是啥意思？
d没有赋值， d2,d3应该是： cells(x,4) 表示第x行，第4列。
cells(x,4)=z
另外，这个opp是什么？是按钮名称？
===================
把活动单元格的值赋给特定的单元格，比如A1，那么在Worksheet_SelectionChange使用这个代码就行了。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1) = Cells(Selection.Row, Selection.Column)
End Sub