Filling cells in a column with a repeating random number series

Hi,

I am importing data from an access table into a spreadsheet.

It is a different number of records each time.
The macro I have will add and name a new column and find the last cell.

What I need to do is have the series 1 -11 repeated in the column to the last cell. I have this macro, but it relies on specific cell references. B2 will always be the same, but the end number in the range will change.
How can I make it so that it will start at the end each time?
Thanks,

Sub autonumber_ft_audit()
'
' autonumber_ft_audit Macro
' Macro recorded 12/22/2011 by a745392
'

ActiveCell.FormulaR1C1 = "11"
Selection.AutoFill Destination:=Range("B233:B243"), Type:=xlFillSeries
Range("B233:B243").Select
Range(Selection, Cells(1)).Select
ActiveWindow.SmallScroll Down:=142
ActiveWindow.LargeScroll Down:=-4
Range("B2").Select
Range("B233:B243").Select
Range("B243").Activate
Selection.AutoFill Destination:=Range("B2:B243"), Type:=xlFillCopy
Range("B2:B243").Select
Range("A1").Select
ActiveWorkbook.Save
End Sub