S
Sue
Hi All
Is there an easier and shorter way than the macro below to add up every
third cell in column K
Sub Macro3()
Range("K3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K6").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K9").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K12").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
End Sub
the next range would be K18 then K21, K24,K27,K30, thru to K144
Is there an easier and shorter way than the macro below to add up every
third cell in column K
Sub Macro3()
Range("K3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K6").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K9").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
Range("K12").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-7]:R[1]C[-1])"
End Sub
the next range would be K18 then K21, K24,K27,K30, thru to K144