Add accumulating numbers in a column vba

[bongobus]

Hi all

I have a macro that copies data to columns b and c

This can range daily in the number of rows

I would like a vba code to input column a

Cell a1 the number 1
Cell a2 the number 2
Cell a3 the number 3

And so on until the column b anc c do not contain any data

So example if nothing in row 50 for b and c
Then a50 equals nothing but a49 equals the number 49

Then this last number being the highest to be copied to let's say d1

 

[oldbrewer]

for j=1 to 100
if cells(j,2)<>"" or cells(j,3)<>"" then cells(j,1)=j:goto 100
cells(1,4)=j:goto 200
100 next j
200 end sub

not tested