Sub Макрос1() 
' Макрос1 Макрос 
' Макрос записан 11.04.2016 (ivanuch) 

Selection.AutoFilter 
Selection.AutoFilter Field:=2, Criteria1:="<>.*", Operator:=xlAnd, _ 
Criteria2:="<>,*", Operator:=xlAnd, Criteria3:="<>.*", Operator:=xlAnd, _ 
Criteria4:="<>.*" 
End Sub 

Sub DeleteEmptyRows()
    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count    'определяем размеры таблицы
    Application.ScreenUpdating = False
    For r = LastRow To 2 Step -1           'проходим от последней строки до второй
        If Application.CountA(Rows(r)) = 1 Then Rows(r).Delete   'если в строке только один столбец - удаляем ее
    Next r
Dim sh As Range, iLastRow&
    iLastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Set sh = Range("A2:E" & iLastRow)
    
    Selection.Sort Key1:=Range("A2"), Order2:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub