无法在VBA循环中的Excel电子表格中插入单行

Sub InsertRowInLoop()
    Dim dataArr() As Variant
    Dim i As Integer
    
    ' 假设需要在第3行之后插入一行
    Const insertRow As Integer = 3
    
    ' 将需要插入的行的数据存储到数组中
    ReDim dataArr(1 To 1, 1 To 3)
    dataArr(1, 1) = "Data 1"
    dataArr(1, 2) = "Data 2"
    dataArr(1, 3) = "Data 3"
    
    ' 循环遍历需要插入行之后的所有行，将它们向下移动一行
    For i = ActiveSheet.UsedRange.Rows.Count To insertRow + 1 Step -1
        Rows(i).Insert Shift:=xlDown
    Next i
    
    ' 将存储在数组中的数据插入到指定行
    Range("A" & insertRow).Resize(UBound(dataArr, 1), UBound(dataArr, 2)).Value = dataArr
End Sub