我录制了一个宏，作用是：： 把A2单元格的内容复制到B2
并且，已经把这个宏1，加载到一个按钮了（姑且把按钮叫做甲）
Sub 宏1()
Range("A2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
我的A2单元格是可以手动输入不同值的
我希望点击按钮甲，，把A2内容复制到B2，
（当A2输入别的数后）再点按钮甲会把A2内容复制到B3
再点按钮甲会把A2内容复制到B4
再点按钮甲会把A2内容复制到B5
……
请问，我该怎么做？谢谢

r = Cells(65535, "b").End(xlUp).row + 1
Range("a2").Copy Cells(r, "b")
A2复制到B列第1个空单元格

都用VBA了，感觉使用单元格事件自动复制更方便，简单写了下，纯属娱乐。如果A1有更改，就自动复制。