如何跳行？

hxgfkfb

各位朋友，我想做以下操作，想把这些操作录成宏命令使用。有个地方没有搞明白，请大家指导一下，我是新手，请大家详细地讲讲操作步骤，谢谢了！！


假设：
  想做一个宏按钮，单击该按钮时，将sheets1中，A1：C1内容，复制到sheets2中的A1：C1；再单击一次，复制到A2：C2；再单击一次，复制到A3：C3；再单击一次，复制到A4：C4……
  依此类推。
  请大家帮忙解说一下，该按钮如何操作，我只会录制，不会写命令。谢谢

爱疯

Public k As Integer
Sub a()
    k = k + 1
    With Sheets("Sheet2")
        Sheets("Sheet1").Range("a1:c1").Copy .Range(.Cells(k, 1), .Cells(k, 3))
    End With
End Sub

{:22:}