Set Cell to value 1...34

Lots of looks no takers. May be the way I explained.

COl A
A2 8001
A3 8014
A4 8017
A5 8173
A6 8192
.
A35 8999
Total 34 entries
I want col B Cell 2 (B2) to = A2 on return from a Sub Incriment B2 to now = A3 etc until I have used last item.

I have a list of 34 branchs that I want to create a report from.
Branch numbers are like 8001, 8017 etc.. they are in a table.

I had set up where you input 1 branch number and it was used in this formula. And I displayed the results on a seperate sheet.

'=DCOUNTA(Closed!1:65536,"Actual Install Date Comp",AM2:AP6)
where CELL AM2..AM6 looked at the cell the operator entered. (Note there are about 10 of these Dcounta statments that all get updated with the same input, I don't think that maters)

I want to set say Cell C2 = branch 1, I will output the results then increment Cell 2 to the next branch number etc until the last entry is completed.


Clear as mud ? LOL
I'm still looking at the forum but can't see to find the right search for it.

Thanks Dennis

The VB code below may get you started; as is, it simply builds a new formula in cell C2 to step down successive rows of column A. The only hiccup is that you have to click a new cell each time to get it to work...
-------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static row As Integer
row = row + 1
Range("C2").Value = "=A" & row

End Sub