How to Fill in column A serinumber contious until lastrow in column B blank

[nhnn1986]

Hi all

I have workbook.sheet(data) that data from Column B10:H with last row variable
Now I want put serinumber continous in column A: Cell(A10).value = 1 then continous until lastrow in column B is blank

Please help me to do that by VBA code.

Thanks./.

 

[Fluff]

Try

Sub FillMe()
   Range("A1").Value = 1
   Range("a1").AutoFill Range("A1", Range("B" & Rows.Count).End(xlUp).Offset(, -1)), xlFillSeries
End Sub

 

[nhnn1986]

thanks for your code but my first range(A10).value = 1, not in range(A1).

Could you repair this code, i'm not good at excel VBA.

thanks./.

 

[Fluff]

Simply change A1 to A10

 

[nhnn1986]

Many thanks @Fluff, code working

 

[Rick Rothstein]

Try

Sub FillMe()
   Range("A10").Value = 1
   Range("A10").AutoFill Range("A10", Range("B" & Rows.Count).End(xlUp).Offset(, -1)), xlFillSeries
End Sub

You know my penchant for one-liners, right?

[table="width: 500"]
[tr]
	[td]Sub FillMe()
  Range("A10", Cells(Rows.Count, "B").End(xlUp).Offset(, -1)) = Evaluate("ROW(1:" & Rows.Count & ")")
End Sub[/td]
[/tr]
[/table]

 

[Fluff]

You know my penchant for one-liners, right?

Can't say I'd ever noticed