如何根据条件定义activecell周围的范围

Sub DefineRangeBasedOnCondition()
    Dim activeCell As Range
    Dim surroundingRange As Range
    
    ' 获取当前活动单元格
    Set activeCell = ActiveCell
    
    ' 判断条件，例如判断当前单元格是否为空
    If activeCell.Value <> "" Then
        ' 定义周围范围的边界
        Set surroundingRange = Range(activeCell.Offset(-1, -1), activeCell.Offset(1, 1))
        
        ' 在周围范围内进行进一步处理，例如将范围内的值相加
        Dim sumValue As Double
        sumValue = Application.WorksheetFunction.Sum(surroundingRange)
        
        ' 输出结果
        MsgBox "Sum of surrounding range: " & sumValue
    End If
End Sub