VBA Code

NOTE, this code assumes that you don't have headers in your data.

Sub Clean_up()
' Written by Barrie Davidson
Dim Last_row, Last_column

   Last_row = ActiveSheet.UsedRange.Rows.Count
   Last_column = ActiveSheet.UsedRange.Columns.Count
   Range("A1").Offset(Last_row - 1, Last_column - 1).Name = "End"
   Range("A1:End").Select
   Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo	
   Range("B2").Select
   Do Until Selection.Row > Last_row
      If Selection.Value = "" Then
         Selection.EntireRow.Delete
         Last_row = Last_row - 1
      ElseIf Selection.Value = Selection.Offset(-1, 0).Value Then
         Selection.EntireRow.Delete
         Last_row = Last_row - 1
      Else
         Selection.Offset(1, 0).Select
      End If
   Loop
   ActiveWorkbook.Names("End").Delete
   Range("A1").Select

End Sub