]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
    
    ' Проверяем, что изменение произошло в строке 45 и дальше.
    If Target.Row < 45 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("Sheet1")
        Case 82
            Set sh_res = Worksheets("Sheet2")
    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

Sub Counter()
Dim CounterCell As Range
Set CounterCell = ActiveSheet.Range("K1")
CounterCell.Value = 0
Do While CounterCell.Value < 10000#
    CounterCell.Value = CounterCell.Value + 0.01
Loop
End Sub