那个大侠能帮我修改一下下面的代码

Question

textbox1到textbox10，有10个textbox（但是有可能不是一个序列），分别放到a到j列的有数据一行的下一个单元格（只要该行的任意单元格有数据，都将textbox数据放到（从a到j列）的下一个单元格）希望能够解决 比如说，第3行 任何一个单元格不等于空白，则textbox1到textbox10 的数据都能放到第四行的1-10列。Private Sub CommandButton1_Click()
Dim Arr
Dim m, n As Integer
Arr = Split("1,2,4,10，8，33，7，22，44，12")
With ActiveSheet
m = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
For n = LBound(Arr) To UBound(Arr)
.Cells.Cells(m + 1, Arr(n) + 1) = UserForm1.Controls("TextBox" & Arr(n)).Text
'xlInsideVertical
Next n
End With
End Sub
这段代码不能找到指定对象，谁能帮我改一下这段代码，或者看看哪里出问题了？小弟先谢谢了。

Answer 1

Arr = Split("1,2,4,10，8，33，7，22，44，12" , "，")

Answer 2

.Cells.Cells(m + 1, Arr(n) + 1) = UserForm1.Controls("TextBox" & Arr(n)).Text
这一段运行时候就找不到对象是怎么回事？

Answer 3

for i=1 to 10
    a=.cells(i,65536).end(3)
    if a <max then max=a
next
for i=1 to 10
    .cells(max,1)="123456"
next

Answer 4

for i=1 to 10
  a=.cells(i,65536).end(3)
  if a <max then max=a
next
for i=1 to 10
  .cells(max,i)="123456"
next

Answer 5

for i=1 to 10
  a=.cells(i,65536).end(3)
  if a <max then max=a
next
for i=1 to 10
  .cells(max+1,i)="123456"
next

Answer 6

还是不行 我上传个附件 意思就是单击将窗体2（宜佰家全屋家私定制定制）上的生成清单后，将窗体2（宜佰家全屋家私定制定制）textbox一行一行数据（不是一个序列）放到sheet1的非空白单元行的下一个行的单元格（从a列开始），谢谢lkhoji  社会有你更和谐。