Шахматы в Excel

Нужно сделать программу, написанную на языке программирования в Ексель.
Сетка 8x8 - такая шахматная доска.
фигуры: король, ладья, слон, ферзь, конь.
Нужно понять бьет фигура короля или нет
В табличке указываются рандомные координаты для фигур.
При нажатии на кнопку проверяется условие, бьет ли фигура короля.
Также должны соблюдаться условия ходов для фигур.
Код что имеется внизу
For i = 1 To 8
Cells(i, 1).RowHeight = 30
Cells(1, i + 4).ColumnWidth = 5
Next i
For i = 1 To 8
For j = 1 To 8
If (i + j) Mod 2 = 1 Then
Cells(i, j).Interior.ColorIndex = 5
Else
Cells(i, j).Interior.ColorIndex = 6
End If
Next j
Next i
kr_x = Cells(1, 2)
kr_y = Cells(1, 3)
l_x = Cells(2, 2)
l_y = Cells(2, 3)
Cells(kr_x, kr_y + 4) = "КР"
If (kr_x = l_x) Or (kr_y = l_y) Then
Cells(2, 4) = "Ладья бьет короля"
Else
Cells(2, 4) = "Ладья НЕ бьет короля"
End If