Macro para autorellenar datos en una columna

Estoy tratando de crear una macro que autorrellene el primer dato de la celda B2 hasta un cantidad de filas.

Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B11")

Pero este proceso va ser repetitivo, se va acumular. Por ello siempre debo buscar la ultima celda para autorellenarla.

Range("b2").Select

Dim uFila As Long
uFila = Cells(Rows.Count, "b").End(xlUp).Row - 1
Range("b2").Resize(uFila).Formula = "=b2=b3"