在活动公式中移动列引用+1每按一次按钮

Question

我试图让VBA在工作表中采用一个简单的SUM公式，但每次单击命令按钮时，列引用都会向右移动一列。我在每个公式中使用以下代码，但代码不记得以前的公式引用，并且每次单击时都将C引用移到一列。

Dim AA As Integer
AA = Sheet5.Range("Q" & Rows.Count).End(xlUp).Row
Sheet5.Range("A3").FormulaR1C1 = "=SUM(RC[99]:RC[110])"
Sheet5.Range("A3").Copy
Sheet5.Range("A3:A" & AA).PasteSpecial xlPasteAll
Application.CutCopyMode = False

因此，每次单击命令Button时，SUM公式中的这些引用都为：

  'Click
  "=SUM(RC[99]:RC[110])"
  'Click
  "=SUM(RC[100]:RC[111])"
  'Click
  "=SUM(RC[101]:RC[112])"
  'Click
  "=SUM(RC[102]:RC[113])"
  'Click
  "=SUM(RC[103]:RC[114])"