ciao nicola,
grazie ai tuoi consigli sono riuscito a risolvere
posto il codice caso mai servisse a qualcuno

codice:
Range("A4:Q35").Select
    ActiveWorkbook.Worksheets("impieghi recenti").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("impieghi recenti").Sort.SortFields.Add Key:=Range( _
        "A4:A35"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("impieghi recenti").Sort
        .SetRange Range("A4:Q35")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
ciao