idShura

ВПР умеет искать только по одному значению, а у вас указан диапазон D7:H7. Попробуй выбрать максимальное значение из диапазона D7:H7.
=ВПР(МАКС(D7:H7);$B$3:$C$5;2;1)

Как вариант:
Import CoinGecko Cryptocurrency Data into Microsof...
coingecko api

=IF($N$1+$G$1>9;1+3)

upd

==IF(($N$1+$G$1)<10;$N$1+$G$1;(MID($N$1+$G$1;1;1)+MID($N$1+$G$1;2;1)))

Как один из вариантов - power query

Пример вычисления остатков

Пример файла

Попробуйте почитать информацию на сайте до конца, там ниже будет:

Function ЕЖИРНЫЙ(ЯЧЕЙКА As Range) As Boolean
  ЕЖИРНЫЙ = ЯЧЕЙКА.Font.Bold
End Function

upd

1. Открываете файл Excel
2. Нажимаете Alt+F11
3. Создаете новый модуль

4. Вставляете код

5. И далее пользуетесь как обычной формулой

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

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

Можно формулой

=СЦЕПИТЬ(ЛЕВСИМВ(A1; ПОИСК(" ";A1;1)-1);" ";ЛЕВСИМВ(ПСТР(A1; ПОИСК(" ";A1) + 1; ПОИСК(" ";A1;ПОИСК(" ";A1)+1) - ПОИСК(" ";A1) - 1);1);".";ЛЕВСИМВ(ПРАВСИМВ(A1;ДЛСТР(A1) - ПОИСК(" "; A1; ПОИСК(" "; A1) + 1));1);".")

Но лучше написать вою формулу на vba, могу позже сделать как время будет.

Попробуй так ComboBox1.ListIndex = 3. Индекс первого элемента 0, поэтому если нужно выбрать четвертый элемент в списке, нужно указывать 3.

Писать готовое решение не хочу, поэтому приведу пример.
Значение из 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

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Sheets("Корешки").Range("A1:AC200").ClearContents

i = 2
j = 0
Offset1 = 0 'Смещение по вертикали
Offset2 = 0 'Смещение по горизонтали

Do While Sheets("Таблица").Cells(i, 1) <> ""
    
    If Sheets("Таблица").Cells(i, 3) = "да" Then

        Sheets("Корешки").Cells(1 + Offset1, 1 + Offset2).Value = Sheets("Таблица").Cells(i, 4)
        
        Sheets("Корешки").Cells(2 + Offset1, 1 + Offset2).Value = "Зарплата"
        Sheets("Корешки").Cells(2 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 1)
        
        Sheets("Корешки").Cells(3 + Offset1, 1 + Offset2).Value = "пеработк"
        Sheets("Корешки").Cells(3 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 8)
        
        Sheets("Корешки").Cells(4 + Offset1, 1 + Offset2).Value = "премия"
        Sheets("Корешки").Cells(4 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 10)
        
        Sheets("Корешки").Cells(5 + Offset1, 1 + Offset2).Value = "Карточка"
        Sheets("Корешки").Cells(5 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 9)
        
        Sheets("Корешки").Cells(6 + Offset1, 1 + Offset2).Value = "аванс нал"
        Sheets("Корешки").Cells(6 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 14)
        
        Sheets("Корешки").Cells(7 + Offset1, 1 + Offset2).Value = "Итого:"
        Sheets("Корешки").Cells(7 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11)
        
        Sheets("Корешки").Cells(8 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 12)
        
        Sheets("Корешки").Cells(9 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11) + Sheets("Таблица").Cells(i, 12)

        Offset2 = Offset2 + 3
        
        If j = 9 Then
            j = 0
            Offset1 = Offset1 + 10
            Offset2 = 0
    
        Else
            j = j + 1
        End If
        
    End If
    
    i = i + 1
    
Loop

Application.ScreenUpdating = True

End Sub