按一次Excel控件，A1单元格被替换成下一个单元格内容。怎么写？

按一次控件   a2替换a1

再按一次控件 a3替换a1

再按一次控件 a4替换a1

再按一次控件 a5替换a1

以此类推。。。。。。求大神相助，谢谢！

求大神相助，非常感谢。

Sub 按钮1_Click()
i = 1
Do
Cells(i, 1) = Cells(i + 1, 1)
i = i + 1
Loop Until Cells(i, 1) = ""

End Sub