тоже самое просто функцией.

ну а почему тогда в примере во всех?  
зачем выкладывать пример, решение которого Вас заведомо не устроит?  
почему не выложить сразу нормальный пример?

Извините.  
Product тоже не во всех ячейках

Переделанный пример

Большое спасибо!

Здравствуйте.  
Ниже функция, которую создал Dophin (спасибо ему, за функцию). Как можно данную функцию "переделать" в макрос, т.е. выделил диапазон, запустил макрос и в каждой ячейке выделенного диапазона "ищет первую английскую букву, и обрезает по нее"  
 
 
Function engl(t As Range)  
   Dim l As Integer  
   Dim S As Integer  
   Dim i As Integer  
   l = Len(t)  
   For i = 3 To l  
       If (Asc(Mid(t, i, 1)) >= 65 And Asc(Mid(t, i, 1)) <= 90) Or (Asc(Mid(t, i, 1)) >= 97 And Asc(Mid(t, i, 1)) <= 122) Then  
           Exit For  
       End If  
   Next i  
engl = Mid(t, 1, i - 2)  
End Function