sortiranje u rastućem, bez praznih ćelija

Potrebna mi je ispravka ovog makroa ili nešto slično trebam sortiranje čelija po abecedi A-Z tako da su prazne čelije na kraju, u mom slučaju su na početku.

Sub Macro2()
'
'
'
' Keyboard Shortcut: Ctrl+q
'
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Unprotect
Range("B7:F92").Select
Range("F7").Activate
Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3:F4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub