Fill a column with a value until last row used

[brasqo]

Hey all -
I'm sure I am over-thinking the solution to this problem =/

I'm needing to fill in a column with a single value "1" in each cell within the column, until the last used row...

Example:
I have "Header1" in A1, "Header2" in B1..
I have names in cells A2 - A5...
I need cells B2 - B5 to have the value "1"...

I know the following will fill in the entire column with 1's:

Range(Range("b2"), Range("b2").End(xlDown)).Value = 1

But how can I tell it to only fill value "1" up to and including B5? (note: the sheet has an unknown number of rows monthly, hence why I cant just use a set range)

Thanks in advance.

 

[Fluff]

How about

Range("b2:B" & Range("A" & Rows.count).End(xlUp).Row).Value = 1

 

[brasqo]

Fluff - You're a gem!
Thanks as always!

Marked as the solution and "liked"..

 

[Fluff]

You're welcome & thanks for the feedback.