vba. about looping to optimize code.

[montecarlo2012]

Hi All.
Working on

Sub j()
    Range("B2").Formula = "=Countif(Q2:WAK2)"
    Range("C2").Formula = "=Max(Q2:WAK2)"
    Range("D2").Formula = "=Countif(Q2:WAK2, 0)"
    Range("E2").Formula = "=COUNTIF(Q2:WAK2, 1)"
    Range("F2").Formula = "=COUNTIF(Q2:WAK2, 2)"
    Range("G2").Formula = "=COUNTIF(Q2:WAK2, 3)"
    Range("H2").Formula = "=COUNTIF(Q2:WAK2, 4)"
    Range("I2").Formula = "=COUNTIF(Q2:WAK2, 5)"
    Range("J2").Formula = "=COUNTIF(Q2:WAK2, 6)"
    Range("K2").Formula = "=Average(Q2:WAK2)"
End Sub

How is possible to make shorter.
thanks.

 

[Peter_SSs]

Now everything is working.

Thank you for the great lesson all of you.

Good news. You're welcome and thanks for the follow-up.