Fill column from 1 to n based on value

[vaemps]

I want to create a script that will fill column cells from 1 to n, which is a value in textbox.

So far I can find the next empty cell in a column, but I can't fill from this cell to below up to n.

dim ws as worksheet
dim i as integer
set ws = Sheets(Sheet1)

For i = 1 to TB_QTY.Value

ws.Range("F100").End(xlUp).Offset(1, 0).Value = i

next i

I know this is not correct, since i cannot be used as a value, but I cannot think any way to solve this. I guess it should be quite easy, but I cannot google my way out of this one, since I am not sure what script I am looking for.

Any help would be appreciated!

 

[Fluff]

You are missing the quotes on your sheet name, it should be

Set ws = Sheets("Sheet1")