Em vez de
activeCell.Offset(0, -2).Address
use isso,
activeCell.Offset(0, -2).Address(RowAbsolute:= False, ColumnAbsolute:= False)
activeCell.FormulaR1C1 =
"=SUM(" & activeCell.Offset(0, -2).Address & "+" & activeCell.Offset(0, -4).Address & "+" & activeCell.Offset(0, -6).Address & "+" & activeCell.Offset(0, -8).Address & "+" & activeCell.Offset(0, -10).Address & ")"
Em vez de
activeCell.Offset(0, -2).Address
use isso,
activeCell.Offset(0, -2).Address(RowAbsolute:= False, ColumnAbsolute:= False)
Tags microsoft-excel vba