用VBA，自动获取当前活动sheet，在第四列和第五列之间新插入一列，将该列的第一行命名为“yunxia”。然后检查第四列的非空行数，从第二行开始，将第三列和第四列非空行相加，得到的和填入到新增列对应的行中

在VBA中，你可以通过以下步骤来完成这个任务：

1. **获取当前活动Sheet**:
使用`ActiveSheet`变量可以获取当前工作簿中的活动Sheet。

2. **插入新的一列**:
可以使用`Columns`集合的`Insert`方法在第4列和第5列之间插入新的列。例如：

   Dim newColumn As Range
   Set newColumn = ActiveSheet.Columns(4).Offset(0, 1) ' 第4列向右移一位
   newColumn.Insert Shift:=xlToRight

3. **设置新列名称**:
利用`Cells`范围的`Name`属性来给新插入的第一行命名：

   With newColumn.Cells(1)
       .Name = "yunxia"
       .Value = "yunxia" ' 如果需要显示文本，也可以在这里设置
   End With

4. **计算并填充数据**:
对于第四列（假设为ColumnD），检查非空行，并在新列（假设为ColumnE）填充对应行的第三列（ColumnC）和第四列的和：

   Dim rng As Range
   Dim sumRow As Long
   sumRow = 2 ' 从第二行开始计数

   For Each rng In ActiveSheet.Range("D2:D" & ActiveSheet.Rows.Count).SpecialCells(xlCellTypeConstants)
       If Not IsEmpty(rng.Value) Then
           newColumn.Cells(sumRow, 1).Value = rng.Offset(0, -1).Value ' ColumnC的值
           newColumn.Cells(sumRow, 1).Offset(0, 1).Value = rng.Value ' ColumnD的值
           newColumn.Cells(sumRow, 1).FormulaR1C1 = "=RC[-1]+RC" ' 合并单元格公式
           sumRow = sumRow + 1
       End If
   Next rng