הקודים הבאים יכניסו לך נוסחאות סיכום של עמודות A ו-B בהתאמה בסוף רשימת הנתונים.
קוד:
Sub SumCalc_A()
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lr + 1, 1).Formula = "=SUM(OFFSET(A1,,," & lr & "))"
End Sub
Sub SumCalc_B()
lr = Cells(Rows.Count, 2).End(xlUp).Row
Cells(lr + 1, 2).Formula = "=SUM(B1:B" & lr & ")"
End Sub