スキルアップ・問題解決なら、モーグにおまかせ！

頻繁に投稿してしまい申し訳ございません。
九九の表内で偶数奇数の表示は理解したのですが、これを仮に
十字にセルの中に数値を入れて他を空白にしたり、×印にセルの中に数値を入れて他のセルを空白にするにはmodとは違う演算子を使用するのでしょうか？
↓は偶数の時のコードですが、少し変更すれば実現出来るのでしょうか？疑問に思い、調べたのですが
解決できなかったので、ご教示頂きたいです。

Sub kuku()
    Dim i, j, k
    For j = 1 To 9
        For i = 1 To 9
            k = i * j
            If k Mod 2 = 0 Then
                Cells(i, j) = k
            Else
                Cells(i, j).ClearContents
            End If
        Next
    Next
End Sub

十字の話は、すでにskさんが回答されています。
頂いた回答をよく理解するようにしてください。
折角回答いただいている方には残念に思われることでしょう。
 
×の位置にということなら、
・i = j または i+j = 10 のときに
とかいう条件になるのでは？
Excelの話というより、簡単な算数の話かと思いますよ。

ありがとうございます。
申し訳ございません、よく確認致します