Excel VBA：根据单元格值添加/删除行;偏移（）的问题

Question

我正在尝试在我的工作中自动化成绩单评估过程。我已经构建了一个非常庞大的宏，我在6个月的时间里一直在重访，我似乎无法完全调试。见下文：

 If j > 1 Then
            For i = 1 To (j - 1)
        Else
            For i = 1 To 1
        End If

我发现当一个单元格值为1时，它会抛弃所有偏移量，所以我 尝试了以下，但我得到了＃34;编译错误：没有If的其他。＆＃34;

Callback<T>

任何帮助将不胜感激。另外，如果有任何问题，请随时告诉我 - 我在VBA有点像业余爱好者。提前谢谢！