Create unique sorted list without blank cell

[maabadi]

Hi
I search and found macro for creation sorted unique list and edit it to this code:

Sub Macro22()
 Macro2 Macro
    With Sheet1
        .Range("Names").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("AZ1"), Unique:=True
        .Range("FilteredNames").Sort Key1:=.Range("AZ2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        .Range("FilteredNames").Copy Destination:=Sheet1.Range("A1")
    End With
End Sub

But my Data have blank cells and first cell in my list is Blank. how to correct it and omit blank cell in list?

Thanks.