如何解决数据输入的while循环

Question

我做了一个用户表单，当数据中的用户密钥插入到另一张表中时。它工作了一段时间。但是当输入的数据已超过600行时。它停止并且数据被放置在工作表中的随机单元格上，或者只是找不到。如何解决呢？它涉及很多数据。

请参阅下面的部分代码

Sheet4.Range("B7").Select

Dim J As Integer

Do While IsEmpty(ActiveCell.Offset(J, 0)) = False
    J = J + 1
Loop

ActiveCell.Offset(J, 0) = UserformSample.TextBox1.Value


If UserformSample.CheckBox1.Value = True Then
ActiveCell.Offset(J, 1) = "X"
Else
ActiveCell.Offset(J, 1) = ""
End If


If UserformSample.CheckBox3.Value = True Then
ActiveCell.Offset(J, 2) = "X"
Else
ActiveCell.Offset(J, 2) = ""
End If

ActiveCell.Offset(2, 0).Select 


End Sub