VBA возвращает неправильную ячейку, содержащую максимальное значение

Question

Итак, я пытаюсь найти максимальное значение во всем столбце E. Код ниже возвращает номер строки, но это не строка, содержащая максимальное значение. Вид в недоумении относительно того, что исправить здесь. Я смог заставить его работать с помощью Index & Match, но хотел бы, чтобы он работал таким образом. Моя таблица здесь:

Sub MonthHighestDemand()
    Dim wsData As Worksheet
    Dim rng As Range
    Dim MaxVal As Long
    ' Long rounds, double leaves it alone

    Set wsData = Worksheets("DATA")
    Set rng = Range("E:E")

    MaxVal = WorksheetFunction.Max(rng)
    Set MaxCell = rng.Find(what:=MaxVal, LookIn:=xlValues)
    mDRow = MaxCell.Row

    MsgBox mDRow
End Sub