Sub
Makro1()
Range(
"D13"
).
Select
ActiveCell.FormulaR1C1 =
"=SUBTOTAL(9,R[1]C)"
Range(
"D11"
).
Select
ActiveCell.FormulaR1C1 =
"=SUBTOTAL(9,R[1]C,R[3]C)"
Range(
"D6"
).
Select
ActiveCell.FormulaR1C1 =
"=SUBTOTAL(9,R[1]C:R[4]C)"
Range(
"D5"
).
Select
ActiveCell.FormulaR1C1 =
"=SUBTOTAL(9,R[2]C:R[5]C)"
Range(
"D3"
).
Select
ActiveCell.FormulaR1C1 =
"=SUBTOTAL(9,R[1]C,R[4]C:R[7]C,R[9]C,R[11]C)"
Range(
"D2"
).
Select
ActiveCell.FormulaR1C1 = _
"=SUBTOTAL(9,R[2]C,R[5]C,R[6]C,R[7]C,R[8]C,R[10]C,R[12]C)"
Range(
"D3"
).
Select
End
Sub