Hello:
I wrote the following code:
Private Sub cmbCareerPath_Change()
With Worksheets("FindPath")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("A1:E50")
.Header =...