AutoFill with no number sequence

Hello,

I'd like to copy B1:B3 then autofill it till the last row of column A without the number sequence. Here's my code, I don't know what variables to change or add. Still new at this.


Sub Step2Add_New_Column()
'
' Step2Add_New_Column Macro
'

'

Dim LR As Integer

Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "direct"
Range("B2").Select
ActiveCell.FormulaR1C1 = "indirect1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "indirect2"
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B3").Select
Selection.AutoFill Destination:=Range("B1:B" & LR)
Range("B1:B" & LR).Select
Selection.Copy
Application.CutCopyMode = False

With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

End Sub