[求帮助】想让录入的数据一行一行写下来

hongpengwei

在附件的“结果表”工作表中，我想让录入的数据从第11行开始一直往下录入，就是接着数据录入到第12，然后录入到第13行
现在之能做到总是录入在第11行，下面是该问题的关键代码，希望各位朋友帮帮忙，帮我看下要怎么改
Private Sub 确定输入_Click()
Sheets("结果表").Rows("11:11").ClearContents
Dim B As Integer
For B = 1 To ListBox2.ListCount
Sheets("结果表").Cells(11, 2 + B) = ListBox2.List
ListBox2.RemoveItem 0
Next
Unload Me
End Sub

1032446692

Private Sub 确定输入_Click()
'Sheets("结果表").Rows("11:11").ClearContents
Dim B As Integer, c%
c = Sheets("结果表").Cells(60000, 3).End(xlUp).Row + 1
If c < 11 Then c = 11
For B = 1 To ListBox2.ListCount
Sheets("结果表").Cells(c, 2 + B) = ListBox2.List
ListBox2.RemoveItem 0
Next
Unload Me
End Sub