Cells(1,11).Value=1000000#

CV9:DA9

CN9:CS9

=ЕСЛИ(BU9=BU$7;$K$1;BV9)

=ЕСЛИ(BU9=BU$7;$K$1;)

if range("BV9") then
   'то, что нужно сделать в тот момент, когда нашлось совпадение
end if

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim sh_res As Worksheet, lc As Long, r As Long
      
        
    ' Смотрим, что значение больше нуля.
    If Target.Value <= 0 Then
        Exit Sub
    End If
    
    ' Проверяем, что изменение произошло в строке 11 и дальше.
    If Target.Row < 11 Then
        Exit Sub
    End If
    
    ' Отключение пересчёта формул и монитора, чтобы ускорить макрос.
    Dim calc As Long: calc = Application.Calculation
    Application.ScreenUpdating = False
    
    ' Смотрим, в каком столбце произошло изменение.
    Select Case Target.Column
        Case 74
            ' Присваиваем листу-результату имя 'sh_res'.
            Set sh_res = Worksheets("Лист1")
        Case 82
             Set sh_res = Worksheets("Лист2")
    End Select
    
    ' Копируем данные на лист-результат из ячейки, в которой произошло изменение.
    ' Записываем в переменную 'r' номер строки, в которой произошло изменение.
    r = Target.Row
    ' Поиск последнего столбца. End не ищет в скрытых столбцах.
    If sh_res.Cells(r, "A").Value = "" Then
        lc = 1
    Else
        lc = sh_res.Cells(r, sh_res.Columns.Count).End(xlToLeft).Column + 1
    End If
    ' Вставка данных.
    sh_res.Cells(r, lc).Value = Target.Value
    
    ' Включение того, что отключено.
    Application.Calculation = calc
    Application.ScreenUpdating = True

End Sub