Count Rows above each blank Row

[Page0727]

I am trying to work out how I can count rows containing data above multiple blank rows. I then need it to place count number in each blank row. I'm not sure how to do this at all. Any help would be much appreciated.

 

[Akuini]

I am trying to work out how I can count rows containing data above multiple blank rows. I then need it to place count number in each blank row. I'm not sure how to do this at all. Any help would be much appreciated.

Is it possible there are 2 or more consecutive blank row?
If not, try this:

[FONT=lucida console][COLOR=Royalblue]Sub[/COLOR] a1082810a()
[I][COLOR=seagreen]'https://www.mrexcel.com/forum/excel-questions/1082810-count-rows-above-each-blank-row.html[/COLOR][/I]
[COLOR=Royalblue]Dim[/COLOR] n [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], k [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], i [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR]
[COLOR=Royalblue]Dim[/COLOR] va [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Variant[/COLOR]

n = Range([COLOR=brown]"A"[/COLOR] & Rows.count).[COLOR=Royalblue]End[/COLOR](xlUp).Row
va = Range([COLOR=brown]"A1:A"[/COLOR] & n + [COLOR=crimson]1[/COLOR])

[COLOR=Royalblue]For[/COLOR] i = [COLOR=crimson]1[/COLOR] [COLOR=Royalblue]To[/COLOR] UBound(va, [COLOR=crimson]1[/COLOR]) - [COLOR=crimson]1[/COLOR]
    k = [COLOR=crimson]0[/COLOR]
        [COLOR=Royalblue]Do[/COLOR]
        k = k + [COLOR=crimson]1[/COLOR]
        i = i + [COLOR=crimson]1[/COLOR]
        [COLOR=Royalblue]Loop[/COLOR] [COLOR=Royalblue]Until[/COLOR] va(i, [COLOR=crimson]1[/COLOR]) = [COLOR=brown]""[/COLOR]
    Cells(i, [COLOR=brown]"A"[/COLOR]) = k
[COLOR=Royalblue]Next[/COLOR]

[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]Sub[/COLOR][/FONT]

 

[Page0727]

This is awesome Thank you so much.

 

[Page0727]

This is awesome, but how would I ignore the header?

 

[Akuini]

This is awesome, but how would I ignore the header?

If the header is at row 1 then:

Change this line:

For i = 1 To UBound(va, 1) - 1

to:

For i = 2 To UBound(va, 1) - 1

 

[Page0727]

Thank you once again.

 

[Akuini]

You're welcome