엑셀 매크로 3,6,9게임!

Sub 삼육구게임()
'
' 삼육구게임 Macro

num = Sheets("frame").Range("F3").Value

Sheets("frame").Range("A5:B65536").Select
Selection.Delete

For i = 1 To num

x = CStr(i)

sign = 0

For j = 1 To Len(x)
If (Mid(x, j, 1) = "3" Or Mid(x, j, 1) = "6" Or Mid(x, j, 1) = "9") Then
sign = 1
End If
Next j

If i Mod 3 = 0 Then
sign = 1
End If

If sign = 1 Then
x = "짝"
Else
x = i
End If

Sheets("frame").Range("A" & CStr(i + 4)).Value = i
Sheets("frame").Range("B" & CStr(i + 4)).Value = x

Next

End Sub

오류가 생기네요..
50번 돌리려고 하는데..

어디가 잘못된걸까요?