С помощью примера в Вашем файле.

Уточню, 11-значные числа это номера мобильных телефонов, т.е. первые 2 цифры всегда "89"

Выкладываю

Буквально недавно уже подобное решалось:  
http://www.planetaexcel.ru/forum.php?thread_id=46093  
 
Единственно чуть-чуть доработал формулу господина vikttur-а  
"=МАКС(ЕСЛИ(ЕЧИСЛО(-ПСТР(ПОДСТАВИТЬ(A1;"-";"");СТРОКА($1:$99);11));--ПСТР(ПОДСТАВИТЬ(A1;"-";"");СТРОКА($1:$99);11)))"  
Это ФОРМУЛА МАССИВА  
________________________  
khafizovtt@gmail.com

Или макрсом  
Public Sub DelRow11()  
   Dim LRow As Long, i As Long  
   Dim pRegExp As Object, iStr As Long  
   Dim is11 As Boolean, vStr As Variant  
   Dim pSheet As Worksheet, subStr() As String  
   Set pSheet = ThisWorkbook.ActiveSheet  
   LRow = pSheet.Cells(pSheet.Rows.Count, 1).End(xlUp).Row  
   Set pRegExp = CreateObject("VBScript.RegExp")  
   pRegExp.Global = True: pRegExp.Pattern = "[^0-9]"
   For i = LRow To pSheet.UsedRange.Row Step -1  
       vStr = pSheet.Cells(i, 1).Value  
       If Application.WorksheetFunction.IsText(vStr) Then  
           subStr = Split(vStr): is11 = False  
           For iStr = 0 To UBound(subStr)  
               vStr = pRegExp.Replace(subStr(iStr), "")  
               If Len(vStr) = 11 Then is11 = True: pSheet.Cells(i, 1).Value = vStr: Exit For  
           Next iStr  
           If Not is11 Then pSheet.Rows(i).Delete  
       End If  
   Next i  
End Sub

Function NumberMob$(rng As Range)  
   Dim spl, i&  
   spl = Split(Replace(rng.Value, "-", Empty))  
   For i = 0 To UBound(spl)  
       If Left(spl(i), 2) = 89 And Len(spl(i)) >= 11 Then NumberMob = spl(i)  
   Next  
End Function

ber$erk, при отсутствии мобильного формула ошибается.  
 
Не обязательно формула массива. Эта и найдет мобильный, и при отсутствии мобильного покажет пустую ячейку:  
=ПСТР(ПОДСТАВИТЬ(A1;"-";);ПОИСК("Моб";ПОДСТАВИТЬ(A1;"-";)&"Моб")+19;11)