excel VBA宏程序运行时遇到的一个问题

Sub makenum()
Dim maxnum As Long
Dim a As Long
a = 2
maxnum = 50
For i = 2 To maxnum
For j = i To maxnum
Dim judge As Boolean
judge = False
For k = 2 To i
If i Mod k = 0 And j Mod k = 0 Then judge = True
If judge = False And i + j <= maxnum Then
Cells(a, 1) = i
Cells(a, 2) = j
Cells(a, 3) = i + j
Cells(a, 4) = i * j * (i + j)
a = a + 1
End If
Next
Next
Next
End Sub

以上是代码段和运行结果的部分截图，程序成功运行数据也符合要求，但是如图出现了大量重复的数据，应该是我写循环的时候那个变量a控制的不好，但是水平有限没想出来解决方案，请朋友们帮忙看看优化一下循环写入的地方