macros在文本之上插入空行不在之后

下面的macros，我从现有的改编，应该插入一个空白行的单词TOTAL CALLS:后面的单词Summary: 。

问题在于它在Summary:行之上添加了空白行，而不是在它之下。

这可能是一个简单的修复，但我只是没有看到错误的地方，因为我不知道足够的VB，不能完全搞砸了。 这个macros将帮助我避免每周一次手动添加大约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