[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]