怎么保持本栏的行数不变

如何保持本栏的行数不变？
A3=SUM(A4:A100)，但由于经插入或删除的原因，A100会变化。如何保证经插入或删除都不改变？


------解决方案--------------------------------------------------------
那就加个INDIRECT函数
=SUM(INDIRECT("A4:A100"))
------解决方案--------------------------------------------------------

探讨

请问如果有A、B、C、D四栏，是否这样录：（用同一个宏，同一个按钮）
Sub Macro1()
Range("A3").FormulaR1C1 = "=SUM(A4:A100)"
Range("B3").FormulaR1C1 = "=SUM(B4:B100)"
Range("C3").FormulaR1C1 = "=SUM(C4:C100)"
Range("D3").F……