Как мне написать код для отображения месяца (столбец 1) наибольшего спроса (столбец 5)?

Question

Я пытаюсь решить проблему, которая спрашивает, в каком месяце находится наибольшее требование. Требование - это столбец E, а месяцы - это столбец A. Это мой текущий код.

Sub MaxDemandMonth()
    Dim wsData As Worksheet
    Dim Rng As Range
    Dim MaxVal As Long

    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 "Max Demand was Found in Month" & mDRow

End Sub