excel如何利用vba代码，自动填充数据到指定区域？

Question

我想在固定的单元格里，例如图中蓝色区域，输入一些数据，如何利用vba将这些数据填充到指定区域，例如图中杏色区域，这个指定区域可能是在本sheet，或者sheet2 sheet3。而且输入新数据后，目标区域会自动转下一行。

Answer 1

上面录入数据，自动复制到下面表格，依次添加？
Sub aa()
Dim i, x
x = Range("A65536").End(xlUp).Row
arr = Range("a2:e6")
Cells(x + 1, 1).Resize(5, 5) = arr
End Sub

Answer 2

Sub cs()
a = [a65556].End(xlUp).Row + 1
Range("A2:E2").Select
Selection.Copy
Range("A" & a).Select
ActiveSheet.Paste
End Sub

Answer 3

自己逻辑定下来后才可以编程实现。。。