怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行？

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行？
就是输入完一行数据后，点击一个按钮，这一行数据自动复制粘贴到指定行。比如在excel表里第2行是 “0023 李明 男 23岁 济南 学生”点击一个按钮后这行数据自动复制到 第23行，那么第23行就是“0023 李明 男 23岁 济南 学生”。然后再把第2行改成“0024 张三 男 25岁 济南 学生”点击一个按钮后这行数据自动复制到 第24行。类似于像数据表填入数据。
谢谢 ！

Private Sub CommandButton1_Click()
n = 23
Do While Cells(2, 1) <> ""
If Cells(n, 1) <> "" Then
n = n + 1
Else:
Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))
Exit Do
End If
Loop
End Sub

假设你数据在a2到f2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再sub和end sub之间 粘贴如下代码： dim i, j as integer i = --range("a2") for j = 1 to 6 cells(i, j) = cells(2, j) next j 回到excel，就有了你要的。