Diana Stoyka

Я бы сделал так: создал бы скрипт, в котором указал бы 1 свойство - символ, который будет потом отображён на объекте. А обработку кнопки сделал бы в методе Update, где проверял бы условие, совпадает ли символ с клавиатуры с символом у объекта. И при нажатии кнопки, и если всё совпало, шарик бы "лопался", и игроку начислялся бы один бал в статичную переменную.

Это самое простое объяснение того, как бы я это делал.

Добавьте задержку в цикл Светлофор в excel, как сделать задержку?
Плавность движения можно регулировать задержкой и шагом изменения координат

Application.Wait Now + #0:00:05#

Писать готовое решение не хочу, поэтому приведу пример.
Значение из Inputbox передайте в переменную Text и поправьте в цикле ячейки в которую нужно выводить значения.

Text = "абвгд"
    
    For i = 1 To Len(Text)
        Cells(1, i) = Mid(Text, i, 1)
    Next

Sub MM1()
For c = 1 To 8
    For r = 1 To 8
        Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
    Next r
    Cells(1, 1).Offset(0, c - 1).ColumnWidth = 2.5
Next c
End Sub

Проверь Android SDK и OpenJDK (часто проблема с ссылкой на них). Премести проект в диск C. Проверь SHA ключи, если используешь и библиотеки, которые работают только в редакторе. (Если у тебя нет OpenJDK, напиши мне, я скину тебе)

У вас поле 8х7 в примере дано.
Код не блещет красотой, но работает на любом размере поля. Размер создавать, меняя переменные lim_row и lim_col.

Sub sd()
cur_row = ActiveCell.row
cur_col = ActiveCell.Column
cur_value = 1
lim_row = 11
lim_col = 11
For i = cur_row To cur_row + lim_row
For j = cur_col To cur_col + lim_col
    If i = cur_row Then
        If cur_value = 0 Then cur_value = 1 Else cur_value = 0
    Else: If cur_value = Cells(i - 1, j).value Then If cur_value = 0 Then cur_value = 1 Else cur_value = 0
    End If
    Cells(i, j).value = cur_value
Next j
Next i
End Sub

FindObjectOfType<Activator> возвращает единственный экземпляр, так что в вашем случае цикл не нужен.
Если хотите получить все экземпляры типа Activator, то надо использовать FindObjectsOfType - тогда получите список, по которому можно пройтись при помощи foreach

UPD: Метод FindObjectsOfType не рекомендуется использовать и он даже помечен как устаревший. Сейчас следует использовать метод FindObjectsByType

Sub FillRange()
    Dim i As Integer
    
    For i = 1 To 10
        Cells(i, i).Value = i
    Next i
End Sub

Если надо на конкретном листе, то ещё надо
Worksheets("Лист1").Cells(i, i).Value = i