需要帮助编辑sumif宏以自动更新并转到下一行

Sub UpdateAndMoveToNextRow()
    Dim rng As Range
    Dim sumRange As Range
    Dim criteriaRange As Range
    Dim resultCell As Range
    
    ' 设置范围
    Set rng = Range("A1:A10") ' 数据范围
    Set sumRange = Range("B1:B10") ' 求和范围
    Set criteriaRange = Range("C1") ' 条件范围
    Set resultCell = Range("D1") ' 结果单元格
    
    ' 更新求和范围
    Set sumRange = sumRange.Offset(1)
    
    ' 更新条件范围
    Set criteriaRange = criteriaRange.Offset(1)
    
    ' 更新结果单元格
    Set resultCell = resultCell.Offset(1)
    
    ' 计算求和
    resultCell.Value = Application.WorksheetFunction.SumIf(rng, criteriaRange.Value, sumRange)
    
    ' 转到下一行
    rng.Select
    ActiveCell.Offset(1).Select
End Sub