Решение японских кросвордов в Excel

Option Explicit
Const colFirst As Long = 12   'первый столбец кроссворда
Const rowFirst As Long = 11   'первая строка кроссворда
Const colCount As Long = 25   'кол-во столбцов кроссворда
Const rowCount As Long = 35   'кол-во строк кроссворда
Const dX As Double = <ширина> 'ширина одной клетки
Const dY As Double = <высота> 'высота одной клетки
Const X0 As Double = <число>  'левый верхний угол кроссворда
Const Y0 As Double = <число>  'левый верхний угол кроссворда
 
Sub NN()
Dim I As Long
Dim J As Long
Dim X As Long
Dim Y As Long
With ActiveSheet
Y = Y0
For I = rowFirst To rowFirst + rowCount - 1
    X = X0
    For J = 1 To colFirst - 1
        If .Cells(I, J) <> "" Then
           .Shapes.AddShape msoShapeRectangle, X, Y, dX * .Cells(I, J), dY
           X = X + dX * (.Cells(I, J) + 1)
        End If
    Next
    Y = Y + dY
Next
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  n = 25                       'максимальное число перебора ячеек,будет потом зависеть от размера поля
 For i = 1 To n
  If Selection.Interior.ColorIndex = 23 Then
    ActiveCell.Offset(0, 1).Select
    r = i
  End If
 Next i
  
    ActiveCell.Offset(0, -1).Select
 For i = 1 To n
  If Selection.Interior.ColorIndex = 23 Then
    ActiveCell.Offset(0, -1).Select
    l = i
  End If
 Next i
  
  If r > l - r Then
   Selection.Interior.ColorIndex = 23
     ActiveCell.Offset(0, l).Select
        Selection.Interior.ColorIndex = 0
  Else
     ActiveCell.Offset(0, 1).Select
        Selection.Interior.ColorIndex = 0
     ActiveCell.Offset(0, l).Select
        Selection.Interior.ColorIndex = 23
  End If
           
End Sub