Aide en vba

Salut à tous les Amis
Je sollicite votre aide pour corriger une macro.
La macro suivante permet de trier la plage (B8:P80) dans l"ordre décroissant suivant la colonne D.
Tout marche comme je veux si la colonne D contient du texte.
Par contre, si la colonne D contient des nombres alors toutes données triées sont décalées en bas de la feuilles alors que j'aurais souhaité qu'elles restent en haut.
Comment faire. Je suis débutant en macro
Merci d'avance


Sub MACRO_NM_Z1()
'

Range("B8:P80").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlDescending