选择满足给定条件的所有单元格

Question

我正在尝试提出一个代码，该代码根据同一行但不同列中的单元格值选择所有单元格。我有以下代码：

Dim rCell As Range
Dim rRng As Range
For Each rCell In Range("b:b")
    If rCell.Value >= DateValue(#1/1/2016#) Then
        If rRng Is Nothing Then
            Set rRng = rCell
        Else
            Set rRng = Application.Union(rRng, rCell)
        End If
    End If
Next
rRng.Select

这将选择B列中的单元格，但我希望它选择位于相同行但位于列I中的单元格。然后可能显示所选单元格的平均值。

这项任务是否有优雅的解决方案。非常感谢所有可能为此做出贡献的人。