Tri personnalisé de la sélection actuelle

Bonjour,

Je cherche un moyen pour réaliser une macro permettant de trier selon la colonne F toute les lignes en cours de sélection.

exemple :
Je sélectionne les lignes ("2649:2674"), je clique sur mon bouton et hop, le tri ce fait entre 2649 et 2674, (qu'importe les lignes sélectionnées)

En gros je cherche une variable pour la sélection

Sub Macro7()
'
' Macro7 Macro
'

'
ActiveWorkbook.Worksheets("647515").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("647515").Sort.SortFields.Add Key:=Range( _
"F2649:F2674"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("647515").Sort
.SetRange Range("A2649:AD2674")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Si quelqu'un peu m'aider.
Ciao