セルに転記するマクロを実行するとexcelが強制終了する

前提・実現したいこと

bootcampしたMacBook Proで365のexcelを使用しています。
VBAで作成したユーザーフォームにて入力したデータをシートに転記し、
シート内で計算処理を行うようなブックを作成しています。

発生している問題・エラーメッセージ

excelの強制終了
エラーメッセージはなし
強制終了後たまに再起動し、処理が完了している

該当のソースコード

VBA
1
2Private Sub 注文_Click()
3
4
5    Dim 卓1 As Variant
6      
7    Dim lastRow As Long '最終行
8    Dim Clm As Long '列
9    Dim nextrow As Long
10    Dim cancel As Variant
11    Clm = 2 '2列目
12    Dim trng As Range
13    Set trng = Range("c3", Range("c3").End(xlDown)).Find(時間リスト.Value)
14    If trng Is Nothing Then
15    
16        lastRow = Cells(Rows.Count, Clm).End(xlUp).Row '2列目の最終行を求める
17
18
19'最終行を求めて＋1する
20
21    nextrow = Cells(Rows.Count, Clm).End(xlUp).Row + 1
22    Cells(nextrow, Clm).Value = 卓1
23    Cells(nextrow, Clm + 1).Value = 時間リスト
24    Cells(nextrow, Clm + 2).Value = 人数リスト
25    Cells(nextrow, Clm + 3).Value = 女の子リスト
26    Cells(nextrow, Clm + 4).Value = オプションリスト
27    Cells(nextrow, Clm + 5).Value = 女の子リストB
28    Cells(nextrow, Clm + 6).Value = オプションリストB
29    Cells(nextrow, Clm + 7).Value = 女の子リストC
30    Cells(nextrow, Clm + 8).Value = オプションリストC
31    Cells(nextrow, Clm + 9).Value = 女の子リストD
32    Cells(nextrow, Clm + 10).Value = オプションリストD
33    Cells(nextrow, Clm + 11).Value = 女の子リストE
34    Cells(nextrow, Clm + 12).Value = オプションリストE
35    Cells(nextrow, Clm + 13).Value = 延長リスト
36    Cells(nextrow, Clm + 14).Value = D小計
37    Cells(nextrow, Clm + 15).Value = D本数
38    Cells(nextrow, Clm + 16).Value = B小計
39    Cells(nextrow, Clm + 17).Value = B本数
40    Cells(nextrow, Clm + 18).Value = ショット合計
41    Cells(nextrow, Clm + 19).Value = ショット本数
42    Cells(nextrow, Clm + 20).Value = SP合計
43    Cells(nextrow, Clm + 21).Value = SP本数
44    
45
46    
47    Else
48    Cells(trng.Row, 4).Value = 人数
49    Cells(trng.Row, 5).Value = 女の子リスト
50    Cells(trng.Row, 6).Value = オプションリスト
51    Cells(trng.Row, 7).Value = 女の子リストB
52    Cells(trng.Row, 8).Value = オプションリストB
53    Cells(trng.Row, 9).Value = 女の子リストC
54    Cells(trng.Row, 10).Value = オプションリストC
55    Cells(trng.Row, 11).Value = 女の子リストD
56    Cells(trng.Row, 12).Value = オプションリストD
57    Cells(trng.Row, 13).Value = 女の子リストE
58    Cells(trng.Row, 14).Value = オプションリストE
59    Cells(trng.Row, 15).Value = 延長リスト
60    Cells(trng.Row, 16).Value = D小計
61    Cells(trng.Row, 17).Value = D本数
62    Cells(trng.Row, 18).Value = B小計
63    Cells(trng.Row, 19).Value = B本数
64    Cells(trng.Row, 20).Value = ショット合計
65    Cells(trng.Row, 21).Value = ショット本数
66    Cells(trng.Row, 22).Value = SP合計
67    Cells(trng.Row, 23).Value = SP本数
68    
69    
70End If
71
72
73
74End Sub
75
76