Hi

I have a list of random numbers in column A the number range is from 0 to 20,000. What I am trying to do is to count the sequential numbers after each random number....sorry this is not really explained well so I willl use a numeric example.

A

23

24

25

33

34

60

77

80

Above is what I have in column A you can see that my number range starts a 23 so I would like to count the sequential numbers that occur from 23 in this case it would be count(23,24,25) giving the answer 3 I would like this answer to be inserted into column B next to 23 and the numbers that were counted in this formula then be deleted as rows (i.e. where the number 24 and 25 was counted then the rows containing these numbers are deleted), The macro moves then to count the next number.

In the case of just a single number then a value of 1 is entered into the column next to the number indicating that there was only one number in that sequence.

Can this be done? If anyone can work out a VBA for this that would be great but even a formula will do I will manually delete the rows if need be (but there 11000 of them and I'de rather not)

I have a list of random numbers in column A the number range is from 0 to 20,000. What I am trying to do is to count the sequential numbers after each random number....sorry this is not really explained well so I willl use a numeric example.

A

23

24

25

33

34

60

77

80

Above is what I have in column A you can see that my number range starts a 23 so I would like to count the sequential numbers that occur from 23 in this case it would be count(23,24,25) giving the answer 3 I would like this answer to be inserted into column B next to 23 and the numbers that were counted in this formula then be deleted as rows (i.e. where the number 24 and 25 was counted then the rows containing these numbers are deleted), The macro moves then to count the next number.

In the case of just a single number then a value of 1 is entered into the column next to the number indicating that there was only one number in that sequence.

Can this be done? If anyone can work out a VBA for this that would be great but even a formula will do I will manually delete the rows if need be (but there 11000 of them and I'de rather not)

## Comment