Sub proDelete()

        Do Until (Selection.Value = 44 Or Selection.Row = 2)
                  If Selection.Value = "" Then
                          Selection.EntireRow.Delete
                  Else
                          Selection.Offset(1, 0).Select
                  End If
            Loop

            Range("A1").Select

End Sub