Modificar código para ejecutar en el formulario

Experta elsa como puedo modificar para que me salgan los números en la columna BI para que se pueda ejecutar en el formulario

Sub ordenarBI()

f = Range("BI" & Rows.Count).End(xlUp).Row
Range("BI1:BI" & f).Select
ActiveWorkbook.Worksheets("pista").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("pista").Sort.SortFields.Add Key:=Range("BI1:BI" & f) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("pista").Sort
.SetRange Range("BI1:BI" & f)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("BI1").Select
End Sub