按标题查找列，并用数据填充其单元格

Question

Stock 请耐心等待。这是我第一次处理Excel中的宏

我有一个月度报表“ MonRep”，其中包含每月库存中每个项目的销售数量。 我还有另一个“总计”工作表，其中包含每个项目的最终总数量。

现在，我正在尝试创建一个宏以自动执行以下操作：

1. 按InputBox函数采用的月份名称搜索工作表列标题，例如5月。
2. 检查May标头下的10个单元格是否为空单元格。
3. 说标题下的第一行是N。
4. 在N行中，计算单元格的总和，从E单元格开始直到May标题下的第一个毯式总和，即N行中前几个月（Jan + Feb + March + April）下的单元格值之和，例如结果是R1。
5. 在May标题下的空白单元格中，输入差异（总计-R1）。
6. 对下一行执行相同的操作，直到row10中的最后一项。
7. 下个月与六月相同。

我从发现的这段代码开始，这是我需要的一部分， 我用我的数据更新了它 我了解其中的第一部分，但看不懂lRow行 你能帮我吗？

    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