Найти столбец по заголовку и заполнить его ячейки данными

Question

* 1002 со * Пожалуйста, будьте терпеливы. Это моя первая сделка с макросом в Excel

У меня есть ежемесячный отчетный отчет «MonRep», который содержит количество, проданное с каждого товара на складе ежемесячно. У меня есть еще один лист «Итого», в котором содержится итоговое общее количество для каждой позиции.

Теперь я пытаюсь создать макрос для автоматического выполнения следующих действий:

1. Поиск заголовка столбца таблицы по названию месяца, взятого функцией InputBox, скажем, это май.
2. проверить, что 10 ячеек под заголовком мая являются пустыми ячейками.
3. Скажем, первая строка под заголовком - N.
4. В строке N вычислите сумму для ячеек, начинающихся с ячейки E до первой общей ячейки, которая находится под заголовком мая, т.е. значения ячеек суммы за предыдущие месяцы (январь + февраль + март + апрель) в строке N, скажем, результат R1 ..
5. В эту пустую ячейку под заголовком мая поместите разницу (всего - R1).
6. Делайте то же самое для следующих строк до последнего элемента в строке 10.
7. В следующем месяце сделайте то же самое для июня месяца.

Я начал с этого кода, который я нашел, он соответствует части моей потребности, Я обновил его с моими данными Я понимаю первую часть этого, но не могу понять строчку не могли бы вы помочь мне, пожалуйста?

    Sub tgr()
Dim ws As Worksheet
Dim rngColumn As Range
Dim lRow As Long
Set ws = Sheets("MonRep")    'To set this to a specific sheetname, use Set ws = Sheets("Sheetname")
Set rngColumn = ws.Rows(5).Find("May")
If rngColumn Is Nothing Then Exit Sub  'No column with header "May" found
lRow = ws.Cells.Find("*", ws.Range("D6"), SearchDirection:=xlPrevious).Row - 1
With rngColumn.Offset(9).Resize(lRow)
    :Formula = " MonRep!H6 =Total!D4 - MonRep!SUM(D6:G6)"  'This will automatically autofill
End With
   End Sub