过滤后，添加单元格'；s值到最大值单元格（Excel VBA）

我尝试使用ExcelVBA，但无法完成代码的编写

首先，我想用字母“A”和“D”过滤B列，用字母“S”和“A”过滤D列

在H列之后，我想找到最大值单元格，并将该单元格加上一个特定单元格的值（如Sheet2！C2）

如果能做到这一点，那将是一个很大的帮助。提前谢谢。如果你需要更多信息，请告诉我

多谢各位

注意：我想在添加Sheet2后覆盖最大单元格！C2。我不想在另一个单元格中对这些单元格求和。

考虑：

=SUBTOTAL(104,H:H)+Sheet2!C2

编辑#1:

相反，如果我们想向下扫描列H，找到该列中的最大可见值，然后向其中添加一些内容，我们将使用以下VBA宏：

---

谢谢，但我不是这个意思。@solesociale请看我的编辑谢谢。那就行了。

Sub FixTheMax()
    Dim r As Range, v As Variant, rr As Range
    v = Sheets("Sheet2").Range("C1").Value
    Set r = Intersect(ActiveSheet.UsedRange, Range("H:H").Cells.SpecialCells(xlCellTypeVisible))
    mx = Application.WorksheetFunction.Max(r)

    For Each rr In r
        If rr.Value = mx Then
            rr.Value = rr.Value + v
            Exit Sub
        End If
    Next rr
End Sub