Excel - Ordenamiento en celdas

Miren, tengo esta formula
Sub OrdenAlf()
'
' OrdenAlf Macro
' Macro grabada el 13/06/2007 por Eduardo Borunda
'

'
Range("B8:B18").Select
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B20:B23").Select
Selection.Sort Key1:=Range("B20"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=6
Range("B25:B28").Select
Selection.Sort Key1:=Range("B25"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=6
Range("B30:B36").Select
Selection.Sort Key1:=Range("B30"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=9
Range("B38:B51").Select
Selection.Sort Key1:=Range("B38"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=15
Range("B53:B58").Select
Selection.Sort Key1:=Range("B53"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=6
Range("B60:B72").Select
Selection.Sort Key1:=Range("B60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=15
Range("B74:B78").Select
Selection.Sort Key1:=Range("B74"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=9
Range("B80:B85").Select
Selection.Sort Key1:=Range("B80"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B87:B89").Select
Selection.Sort Key1:=Range("B87"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=-87
Range("B8").Select
End Sub

Pero mi intencion es ordenar,ok, pero si hay espacios en blanco recorrer las celdas que tengan algo, y mandar las que no tienen nada abajo de cada rango