[SOLVED] macros that count the number of cells (not solved yet)

I have sales revenues in column "A", however, its being separated by a blank row by region. Each time the sales revenue is being separated by region, I need to count how many cells above it. However, I need to return the value in column "B". My sales revenue column has 1000+ rows. Below is an example.

Column A Column B

1000.00
2000.00
3000.00
3
1000.00
2000.00
3000.00
4000.00
4
5000.00
6000.00
7000.00
8000.00
9000.00
5

Please help me write a macro to automate this task. I need to understand how a macro can count a dynamic range so I could use in another macro. Dont solve this using a sumif formula.

Thanks