How to auto-fill a column with consecutive numbers using VBA

[Mr2017]

Hi

I have data in columns A - C and the number 1 in cell D1.

Does anyone know how I can drag the numbers from cell D1 to the rest of the column D (up to the last row of the data in column A) in consecutive order?

So my data would initially look like this:

A	D	G	1​
B	E	H
C	F	I

However, I would like it to look like the table below (NB - the number of rows will vary, so the drag would have to be dynamic rather than fixed). TIA.

A	D	G	1​
B	E	H	2​
C	F	I	3​

 

[MARK858]

One way

Range("D1").AutoFill Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row), xlFillSeries

 

[Mr2017]

Excellent!!

Thank you very much, @MARK858

That worked!!

 

[MARK858]

You're welcome

 

[Peter_SSs]

Another way ..

Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row).DataSeries , xlLinear

 

[Mr2017]

Great - that works, too!

Thanks, @Peter_SSs !

 

[Peter_SSs]

You're welcome. I'm not suggesting that it is a better way, just a different way.

 

[abdelfattah]

hi, guys nice code but what if there is no number in d1 it 's empty how is the code starts number 1

 

[MARK858]

How is Excel supposed to know what number you want to start with if you don't input it. (Either manually or by code)?

 

[abdelfattah]

hi, mark but i think some codes do that if specify the number rows by function do that if cell is filling then the next cell give the number without i write manually i'm not sure it just guess