vba怎么自动复制excel表的一行到下一行

vba如何自动复制excel表的一行到下一行
我现在有一个excel表，我现在想通过代码实现在每次填写数据之前复制本行到下一行，例如:第一次执行复制第一行到第二行，然后填充数据，第二次执行时复制第二行到第三行，一次类推……

[解决办法]
只要你是要一行一行地输入数据，下面的这段代码执行时可以将最后一行复制到下一行中：

VBScript code

Sub CopyLine()    Dim i&, j&    i = WorksheetFunction.CountA(Columns(1))    For j = 1 To Range("IV" & i).End(-4159).Column        Cells(i + 1, j).Formula = Cells(i, j).Text    NextEnd Sub