Вывести в таблицу фамилию менеджера, который отправил наибольшее кол-во туристов(VBA)

[blondino4ka_milk]

1. Используя типовые алгоритмы в приложении vba (программа бейсик) определить перечень разных фамилий менеджеров и для каждого менеджера определить суммарное число отправленных им туристов. Вывести в таблицу фамилию менеджера, который отправил наибольшее кол-во туристов.
2. Используя типовые алгоритмы в приложении vba определить перечень разных турфирм. Применяя встроенную в excel функцию СУММЕСЛИ(), определить по каждой фирме общее кол-во туристов, отправленных этой фирмой за границу.
3. Используя типовые алгоритмы в приложении vba определить перечень разных стран. Применяя встроенную в excel функцию СУММЕСЛИ(), определить по каждой стране общее кол-во туристов, приехавших в эту страну из России.
5. Для заголовка таблицы создать макрос

Меня интересует больше как

Вывести в таблицу фамилию менеджера, который отправил наибольшее кол-во туристов.

Сообразить не могу

[blondino4ka_milk]

Подскажите, вот мы находим макс значение во втором столбце, как сделать что б фамилия выводилось в заданной ячейке с первого столбца? а не просто максимальное значение как по этому коду

Sub GetCalculate()
    Dim iMax#
    Dim myRange As Range, myRange2 As Range
    Set myRange = Range("B2", Cells(Rows.Count, 2).End(xlUp))
'   Set myRange2 = Range("A2", Cells(Rows.Count, 1).End(xlUp))
        With Application
        
        [E8] = .Max(myRange)
        
        End With
End Sub

[Sciv]

Visual Basic знаю слабо, но на уровне чисто алгоритма сделал бы так: после определения Max нашел бы номер строки циклом типа:

Пока Ячейка("B",i)<>Max Цикл i=i+1

А там уже присвоил бы [E8]=Ячейка("A",i);

P.S. Сначала прочитал:

...фамилию менеджера, который отравил наибольшее кол-во туристов...

Долго втыкал

[blondino4ka_milk]

В общем сделала так) не знаю, верный код или нет, но главное работает))) все проверила работает на ура))

Sub MaxFam()
    Dim MaxVal As Double
    Dim Row As Long
    MaxVal = Application.WorksheetFunction.Max(Range("B2", Cells(Rows.Count, 2).End(xlUp)))
    For Row = 1 To 20
        If Cells(Row, 2).Value = MaxVal Then
            Exit For
        End If
    Next Row
    Cells(Row, 1).Copy Range("E8")
End Sub

[Sciv]

Ну раз работает как надо, значит код верный
Другое дело, что из-за вот этого:

For Row = 1 To 20

Ваша программа ошибется, если менеджеров больше 20. Лучшее было бы:

For Row = 1 To Rows.Count