Selecting workbook then worksheet without using sheet name

[ajt8888]

I am trying to use a macro across a number of worksheets in a workbook I am not very good at writing VBA so just record it but from some reason the macro just references the one sheet how do I change it so that it doesnt just look for the same sheet all the time? Also the number of rows varies in each sheet how do I get it to select however many rows there are?

Columns("B:B").Select
ActiveWorkbook.Worksheets("F1711412").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("F1711412").Sort.SortFields.Add2 Key:=Range( _
"B2:B91"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("F1711412").Sort
.SetRange Range("B1:B91")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A50")
Range("A2:A50").Select
Range("B1").Select

 

[DanteAmor]

Run the following on the sheet you need.

Sub test()
  Dim lr As Long
  lr = Range("B" & Rows.Count).End(xlUp).Row
  Range("B1:B" & lr).Sort key1:=Range("B1"), order1:=xlAscending, Header:=xlYes
  Range("A2").AutoFill Destination:=Range("A2:A" & lr)
End Sub