Modify code to used range and lr

[FROGGER24]

I would like to sort the used range on a worksheet called hours, column F3 to lr and A3 to lr, last row determined by column A. Row 2 contains the headers. That code takes 5 minutes or so to run.

This is the current code:
Range("A2:XFD103").Select
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Add Key:=Range("F3:F103") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Add Key:=Range("A3:A103") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hours").Sort
.SetRange Range("A2:XFD103")

.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select

Appreciate any help provided

 

[Michael M]

What is the last column in the sort table...surely not "XFD"

 

[FROGGER24]

What is the last column in the sort table...surely not "XFD"

Currently it is AGH, but could change as time goes on

 

[Michael M]

Maybe this

Sub MM1()
Dim lr As Long, lc As Integer
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
lc = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Add Key:=Range("F3:F" & lr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Hours").Sort.SortFields.Add Key:=Range("A3:A" & lr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hours").Sort
    .SetRange Range(Cells(2, 1), cels(2, lc))
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

 

[kevin9999]

Or maybe this?

Sub FroggerSort()
    With ActiveSheet.Range("A2").CurrentRegion
        .Sort Key1:=.Range("A2"), order1:=1, Header:=1, _
        Key1:=.Range("F2"), order1:=1, Header:=1
    End With
End Sub

 

[kevin9999]

Sorry, SHB

Sub FroggerSort()
    With ActiveSheet.Range("A2").CurrentRegion
        .Sort Key1:=.Range("A2"), order1:=1, Header:=1, _
        Key2:=.Range("F2"), order1:=1, Header:=1
    End With
End Sub

 

[Fluff]

Another option

Sub Frogger()
   Dim UsdRws As Long
   
   With Sheets("Hours")
      UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
      With .Range("A2", .Cells(2, Columns.Count).End(xlToLeft))
         .Resize(UsdRws).Sort .Columns(1), xlAscending, .Columns(6), , xlAscending, Header:=xlYes
      End With
   End With
End Sub

 

[FROGGER24]

if possible would like to have the code auto-scroll to the cell with current date in row 1, columns A-F are frozen.

Thanks in advance for your time and help!

 

[Fluff]

Have you tried any of the codes & do they do what you asked for?

 

[FROGGER24]

When I copied into new workbook, I had placed the codes in the wrong order. Your solution worked as requested. Thank you