vba how to apply for.....next

[montecarlo2012]

Hi.
working on:

 [B5].Value2 = Application.Count(Range("B2", [B2].End(xlToRight)))
    [B21].Value2 = Application.Count(Range("B18", [B18].End(xlToRight)))
    [B37].Value2 = Application.Count(Range("B34", [B34].End(xlToRight)))
    [B53].Value2 = Application.Count(Range("B50", [B50].End(xlToRight)))
    [B69].Value2 = Application.Count(Range("B66", [B66].End(xlToRight)))
    [B85].Value2 = Application.Count(Range("B82", [B82].End(xlToRight)))

Please some cooperation here.
How to apply for next loop in this case.
Thanks for reading this.

 

[Marc L]

Hi, for starters :​

         Dim V, S$()
    For Each V In Split("B5:B2 B21:B18 B37:B34 B53:B50 B69:B66 B85:B82")
        S = Split(V, ":")
        Range(S(0)).Value2 = Application.Count(Range(S(1), Range(S(1)).End(xlToRight)))
    Next

 

[montecarlo2012]

Marc L. Thank you unique answer. beautiful
I already mark as solution.

 

[Marc L]

A variation :​

    Dim V, R&
        V = [{5,2;21,18;37,34;53,50;69,66;85,82}]
    For R = 1 To UBound(V)
        Cells(V(R, 1), 2).Value2 = Application.Count(Range(Cells(V(R, 2), 2), Cells(V(R, 2), 2).End(xlToRight)))
    Next

 

[montecarlo2012]

Your are unique. Thanks Marc L

 

[Marc L]

Last but not least, an Array variation :​

         Dim V
    For Each V In Array([{5,2}], [{21,18}], [{37,34}], [{53,50}], [{69,66}], [{85,82}])
        Cells(V(1), 2).Value2 = Application.Count(Range(Cells(V(2), 2), Cells(V(2), 2).End(xlToRight)))
    Next

 

[montecarlo2012]

awesome thank you Marc.