求助在录制的宏中加入变量

我录制了一个宏，作用是：： 把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
……
请问，我该怎么做？谢谢