Thank you mana your code worked!
I appreciate the patience you guys had with me!
Option Explicit 
 
Sub test() 
     
    With ActiveSheet.Sort 
        With .SortFields 
            .Clear 
            .Add Key:=Range("B1"), Order:=xlDescending  
        End With 
        .SetRange Range("B1").CurrentRegion 
        .Header = xlYes 
        .Apply 
    End With 
     
End Sub