Sub Test_Addition()
' Test_Addition Makro
ActiveWindow.SmallScroll ToRight:=6
Range("AH2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]+RC[-3]+RC[-2]"
Range("AH3").Select
End Sub
Sub Test_Addition()
' Test_Addition Makro
ActiveWindow.SmallScroll ToRight:=6
Range("AH2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]+RC[-3]+RC[-2]"
Range("AH3").Select
End Sub
Sub Test_Addition()
Range([AC2], [AC2].End(xlDown)).Offset(0, 5).FormulaR1C1 = "=RC[-5]+RC[-4]+RC[-3]+RC[-2]"
End Sub