Creating numberlist using Excel VBA

[ApprenticeGirl]

Hi everyone I would like to seek your help in creating a a number list base on the last number appear in column A. Number list will be put on Column B1 down.


Here is my example.

Example 1
COLUMN A	COLUMN B
random #	1
1	2
2	3
4	4
10	5
6	6
7	7
11	8
	9
	10
	11
example 2
COLUMN A	COLUMN B
random #	1
4	2
5	3
6
11
12
15
9
3

<tbody>
</tbody>

Thank you

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG18Jul58
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] long
Lst = Range("A" & Rows.count).End(xlUp).Row
Columns("B:B").ClearContents
[COLOR="Navy"]With[/COLOR] Range("B1")
    .Value = "1"
    .AutoFill Destination:=Range("B1:B" & Range("A" & Lst)), Type:=xlFillSeries
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[ApprenticeGirl]

Thanks MickG its working great. Just 1 last request. What if the result will be put in the other sheet? The random# is in sheet1 column A and the result would be place in column E in sheet2.

 

[ApprenticeGirl]

Disregard my request MickG I already figure out what to do.Thank you very much forgiving a helping hand. Newbie like me is very lucky to have experts like you in this forum.

 

[MickG]

Try this:-

[COLOR=navy]Sub[/COLOR] MG18Jul25
[COLOR=navy]Dim[/COLOR] Lst [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
[COLOR=navy]Dim[/COLOR] wS [COLOR=navy]As[/COLOR] Worksheet
Lst = Range("A" & Rows.count).End(xlUp).Row
[COLOR=navy]With[/COLOR] Sheets("Sheet2").Range("E1")
       .Resize(Rows.count).ClearContents
       .Value = "1"
       .AutoFill Destination:=.Resize(Range("A" & Lst)), Type:=xlFillSeries
[COLOR=navy]End[/COLOR] [COLOR=navy]With[/COLOR]
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick
Ps:- Just seen your Post, Thanks for the feedback!!