Hi Folk

This is a macro I recorded to sort a list into alphabetical order,,,,,,,,, how can I stop it putting the blank cells at the top of the list,,

Sub Sort_Names()

    ActiveWindow.SmallScroll Down:=-9
    Range("A3:C600").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-54
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Columns("E:G").Select
    Range("E2").Activate
    Columns("E:G").EntireColumn.AutoFit
    Range("E3:G600").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
End Sub
thanks