Здравствуйте!  
Есть следующая ситуация: необходимо проверить первую ячейку каждой строчки и если первый символ в ней цифра (0-9) то её, т.е. строчку, нужно оставить. Во всех остальных случая – удалить. Задача, как понимаю, не очень сложная, но я с языками программирования не дружу. Пример с простейшими пояснениями приложил.  
 
Заранее, спасибо за любую помощь.  
 
Пока просматривал форум и занимался «индийским» программированием (вырывал куски кода из уже готовых примеров), смог добиться только проверки первой ячейки на наличие цифры, но этот код не учитывает её, цифры, порядок. Код вот такой:  
 
Sub ertert()  
Dim rng As Range, r As Range, rDel As Range  
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)  
With CreateObject("VBScript.RegExp")  
   .Pattern = "[0-9]"
   For Each r In rng  
       If .test® Then  
       Else  
       If rDel Is Nothing Then Set rDel = r Else Set rDel = Union(rDel, r)  
       End If  
   Next r  
End With  
If Not rDel Is Nothing Then rDel.EntireRow.Delete  
End Sub  
 
Если кто может, подскажите как поправить этот вариант, или предложите другой способ решения. Спасибо!