Подскажите, как сделать так, чтобы Leader равнялось не трем, а максимальному числу в выделенном столбце (которое выделяется перед выполнением макроса)
Сам алгоритм создает соседний столбец, где пересчитывает все значения выделения как доли от самого большого значения в выделении (которое, соответственно, становится равно единице).

Другая проблема заключается в том, что если выделять снизу вверх, столбец неправильно располагается, но это не так важно.

Скрытый текст
Sub Макрос() ' ' Макрос Макрос ' Dim Cell& Cell = Selection.Count Dim Leader& Leader = 3    ActiveCell.Offset(0, 1).Range("A1").Select    ActiveCell.FormulaR1C1 = "=RC[-1]/" & Leader & ""    ActiveCell.Select    Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & Cell) End Sub 'MAX(C[-1])