Macro To fill down Numbers needed

[thunder_anger]

Hi there

is there a way to fill down numbers according to a number in another cell

E.g

if entered the number 30 in cell B1
Excel to fill from A1 to A30 with numbers
1
2
3
4
....
30
is that possible

 

[thunder_anger]

any i deas i stuck here

 

[Jonmo1]

Assuming B1 will be at least 1...

In A1, put 1

In A2 and filled down as far as needed to meet the maximum number you'll put in B1
=IF(A1>=B$1,"",A1+1)


Hope that helps.

 

[thunder_anger]

thank you for the reply
but i want it to be with a VBA code
is it possible??

 

[Jonmo1]

Why?

Sub FillNumbers()
Dim i As Long
For i = 1 to Range("B1").Value
    Cells(i,"A").Value = i
Next i
End Sub