VBA添加一个按钮，用于添加从活动单元格上方复制某一特定公式的行，但不起作用

Sub AddFormulaRow()
    Dim activeCell As Range
    Dim formulaRow As Range
    Dim newRow As Range
    
    ' 获取活动单元格
    Set activeCell = ActiveCell
    
    ' 获取要复制的公式所在行
    Set formulaRow = activeCell.Offset(-1).EntireRow
    
    ' 在活动单元格的上方插入一行
    activeCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    ' 设置新行范围
    Set newRow = activeCell.EntireRow
    
    ' 复制公式行到新行
    formulaRow.Copy newRow
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 清除剪贴板
    Application.CutCopyMode = False
End Sub