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

 

[Fluff]

Glad we could help & thanks for the feedback.