vba - 宏在文本上方插入空行而不是之后

Question

我从现有宏改编的以下宏应该在 wordTOTAL CALLS:之后插入一个带有单词的空行Summary:。

问题是它在行上方而Summary:不是下方添加空行。

这可能是一个简单的修复，但我只是看不出错误在哪里，因为我不知道足够多的 VB 不会完全搞砸。这个宏将帮助我避免每周一次手动添加大约 400 个空白行。预先感谢您的任何帮助！

Sub Insert() 
    Dim rng As Range 

    Set rng = Range("D1") 
    While rng.Value <> "" 
        If rng.Value = "Summary" Then 
            rng.EntireRow.Insert 
            rng.Offset(1, 0) = "TOTAL CALLS" 
            Set rng = rng.Offset(1) 
        End If 
        Set rng = rng.Offset(1) 
    Wend 
End Sub 

Answer 1

该Insert方法总是这样插入。

如果需要在某个范围之后插入一行，则需要使用Offset或其他一些方法来指定插入的行所属的位置。

rng.Offset(1,0).EntireRow.Insert