求助！懂VBA的请指教

开始和清零按钮如何制作你可得说清楚，要不然我还是无法应用。J1:J4里的公式我能修改并且不影响代码的运行。
如能直接做成表格上传就更好了。

@RuiWangChina
阿光！帮我看看有法子吗？

记录随机数是不？什么条件下终止循环？

Sub recloop()
For each r in range("a8:a70").rows
R.cells(1,1)=cells(1,10)
Application.calculate
Next
End sub

Sub record()
start_row = WorksheetFunction.CountA(Range("b8:b50")) + 8
Cells(start_row, 2) = Cells(1, "j")
Cells(start_row, 3) = Cells(2, "j")
Cells(start_row, 4) = Cells(3, "j")
Cells(start_row, 5) = Cells(4, "j")
Sheet1.Calculate
End Sub
Sub clear()
Range("b8:e50").ClearContents
End Sub

Sub TestLoop()
For Each r In Range("A8:D70").Rows
r.Cells = WorksheetFunction.Transpose(Range("J1:J4"))
Sheet1.Calculate
Next
End Sub

@zipall
我发了个文件给你，这是别人做的代码，里面函数是我做的。可是代码根本达不到实际要求

@wangxf92099

Sub RandUpdate()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
If Cells(Rows.Count, 2).End(3).Row >= 50 Then
MsgBox "再来就超过第50行了"
Exit Sub
End If
Dim Arr
Arr = Application.Transpose([j1:j4])
Cells(Rows.Count, 2).End(3).Offset(1).Resize(1, 4) = Arr
End Sub
Sub Start()
Application.OnKey "{F9}", "RandUpdate"
End Sub
Sub ClearData()
Range("b8:e" & Rows.Count).ClearContents
Application.OnKey "{F9}", ""
End Sub

Sub 记录()
N = Range("B65536").End(3).Row
If N = 50 Then
MsgBox "记录已满，请重新开始！"
Else
Cells(N + 1, 2).Resize(1, 4) = Application.WorksheetFunction.Transpose([J1:J4])
End If
Application.Calculate
End Sub
Sub 开始()
Application.OnKey "{F9}", "记录"
End Sub
Sub 清空()
[B8:E50] = ""
Application.OnKey "{F9}"
End Sub