求做一个按顺序输入的宏

输入最上边两行数字后全选这些数字，在右下角的单元格（即23所在的单元格），用填充柄下�

谢谢你的回复.
 我上边的11，12，13……只是单元格输入的一个序号，具体输入时，是手工输入的不同的数值。
 请求各位大侠的指教！

输入前这么选
选中A:E,输入完成按Table
如果觉得不习惯， 工具- 选项 - 编辑 Enter方向向右

我想他要的是不按正常次序输入的宏以吧？
我想不出来，或者这样会容易些：
按正常输入在另一位置，然后再用宏将其写在指定的位置。
这个宏就能做

按你这题目,不就是一个等差序列的填充吗,它的步进值为10

5楼理解的非常对！但是先输入再调动位置，有些不直观，方便。
再次顶起我的帖子，期待满意的方法�

再明确一下，大家看下面的宏：
Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+q
'
 Range( _
 "B1,C1,E1,A1,D1,B2,C2,E2,A2,D2,B3,C3,E3,A3,D3,B4,C4,E4,A4,D4,B5,C5,E5,A5,D5,B6,C6,E6,A6,D6" _
 ).Select
End Sub



这个宏执行完毕后就会按我选定的顺序选择，我每按下Enter键单元格就会自动的转到我想要的位置等待输入，但是我这个宏只能选择A1到E6，我想要的是在工作簿的任何位置指定了活动单元格，就能在这个单元格位置按我预定的顺序选择。
 这个能做到吗？

Sub Macro1()
 Dim y As Integer
 Range("A1").Select
 y = 1
 While (Not IsEmpty(Cells(y, 1).Value))
 y = y + 1
 Wend
 
 ActiveCell.Offset(y - 1, 0).Range( _
 "B1,C1,E1,A1,D1,B2,C2,E2,A2,D2,B3,C3,E3,A3,D3,B4,C4,E4,A4,D4").Select
'
End Sub

上面一段是查找，免覆盖原内容，主要是由A1来定位
后面可以在任意位置按你定的位置填写
你自己再修改�

做个公式也可以吧,

?什么公式？